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ABSTRACT 


<jThe  stiffness  and  strength  analyses  of  composite  materials  pre¬ 
viously  presented  have  been  reviewed  and  extended  to  cross-ply  and 
helical-wound  cylinders,  as  well  as  flat  laminates^}  Consideration  has  been 
given  to  the  composite  behavior  after  initial  yielding,  including  the  influence 
of  filament  crossovers  in  helical- wound  cylinders.  In  doing  so,  a  modified 
’’netting  analysis"  has  been  used  in  conjunction  with  the  continuum  analysis 
to  predict  both  initial  yielding  and  post-yielding  behavior. 

Cylinders  were  assumed  to  be  subjected  to  various  loading  condi¬ 
tions,  including  axial  tension  and  compression,  torsion,  and  internal  pres¬ 
sure.  Theoretical  results  were  then  compared  with  experimental  data 
obtained  using  glass-epoxy  composites. 

Investigations  have  also  been  made  of  the  relative  contributions  of 
the  constituent  material  properties  to  the  gross  behavior  of  a  unidirectional 
fibe r- reinforced  composite  when  subjected  to  various  loading  conditions. 
Theoretical  values  obtained  for  the  prediction  of  the  stiffness  and  strength 
of  the  composite  as  a  function  of  constituent  properties  have  been  compared 
with  experimental  data  obtained  using  both  glass-epoxy  and  boron-epoxy 
systems . 

Complete  digital  computer  programs,  developed  in  conjunction  with 
the  strength  analyses  of  flat  laminates  and  laminated  composite  cylinders, 
and  the  investigation  of  stress  distributions  in  the  fibers  and  matrix  of  a 
composite  subjected  to  either  longitudinal  shear  or  transverse  normal  loading, 
are  presented  in  Appendices  A,  B,  and  C. 
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SECTION  1 


INTRODUCTION 


This  is  a  continuing  attempt  to  develop  a  rational  approach  to  the 

design  and  utilization  of  composite  materials  in  structural  applications. 

1  2* 

Previous  efforts  *  were  concerned  with  the  establishment  of  the  independ¬ 
ent  elastic  moduli  and  strength  parameters  from  the  macroscopic  viewpoint. 

The  current  effort  is  concerned  with  the  development  of  guidelines 
for  the  design  of  composite  structures.  The  determination  of  the  deforma¬ 
tion  and  load- carrying  capacity  of  filamentary  structures  is  outlined. 
Helical- wound  tubes  subjected  to  various  loading  conditions  are  examined  in 
detail.  The  behavior  of  this  structural  element  is  expressed  in  terms  of 
various  lamination  parameters  including  the  helical  wrap  angle,  number  of 
layers,  etc.  ,  and  material  parameters  such  as  the  properties  of  the  con¬ 
stituent  materials,  the  cross-sectional  shape  of  the  filaments,  etc.  The 
present  theory  of  design  of  composite  materials  can  be  applied  to  the  anal¬ 
ysis  and  design  of  filamentary  structures. 

The  weak  link  in  a  fiber- reinforced  composite,  as  exhibited  by  the 
initial  yielding,  is  closely  associated  with  the  low  strength  levels  attainable 
in  a  direction  transverse  to  the  fibers  and  in  shear.  For  this  reason,  the 
transverse  and  shear  properties  of  a  unidirectional  composite  are  analyzed, 
the  results  providing  information  needed  in  improving  composite  materials. 


References  are  listed  at  the  end  of  this  report. 


The  present  theory  of  design  of  composite  materials  is  only  prelimi¬ 
nary.  A  number  of  refinements  and  appropriate  experimental  verification 
remain  to  be  explored.  In  particular,  inelastic  behavior  both  on  the  macro¬ 
scopic  and  microscopic  levels  and  the  effect  of  filament  crossovers  are  two 
problems  that  deserve  immediate  attention.  It  is  hoped  that  as  the  theory  is 
improved,  the  extent  of  empiricism  can  be  substantially  reduced  in  the  de¬ 
sign  and  utilization  of  composite  materials. 
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SECTION  2 


STRENGTH  ANALYSIS 

Anisotropic  Yield  Condition 

The  anisotropic  yield  condition,  as  reported  in  Reference  2,  is 

derived  from  a  generalization  of  the  von  Mises  yield  condition  for  iso- 
3 

tropic  materials*  It  is  assumed  that  the  yield  condition  is  a  quadratic 
function  of  the  stress  components 

2f  (a.)  =  F(cr  -  cr  )2  +  G(ff  -  a  )2  +  H(ct  -  a  )2 

'  lj 7  x  y  z 7  '  z  x7  '  x  y7 

+  2L  T2  +  2M  T2  +  2N  T2  =1 
yz  zx  xy 

where  F,  G,  H,  L,  M,  N  are  material  coefficients  characteristic  of  the 
state  of  anisotropy,  and  x,  y,  z,  are  the  axes  of  the  assumed  orthotropic 
material  symmetry.  Equation  (1)  reduces  to  the  von  Mises  condition  if 

F  =  G  =  H  =  l/6k2 

L,  =  M  =  N  =  1  /2k2 

where  k  is  a  material  parameter  governing  the  yielding  of  isotropic 
materials. 


Since  the  composite  material  of  present  interest  is  in  a  form  of  rela¬ 
tively  thin  plates,  a  state  of  plane  stress  is  assumed.  Equation  (1)  can  be 
reduced  to: 


The  validity  of  this  yield  condition  has  been  demonstrated  in  Reference  2, 
using  unidirectional  glass -epoxy  composites  subjected  to  tensile  loads. 

For  the  strength  analysis  of  a  filamentary  structure  subjected  to 
combined  loading,  compressive  properties  must  be  known.  Analogous  to 
the  tensile  strengths  X  and  Y,  the  compressive  strengths  X1  and  Y1  are 
determined  from  0-  and  90 -degree  specimens  subjected  to  uniaxial  com¬ 
pressive  loads,  respectively.  Shear  has  no  directional  property,  hence, 

S  =  S'. 

It  is  assumed  that  the  anisotropic  yield  condition  remains  applicable 
for  materials  with  properties  different  in  tension  and  compression.  It  is 
only  necessary  to  use  the  principal  strengths  compatible  with  the  prevailing 
stress  components,  i.  e.  ,  tensile  strength  for  positive  normal  stress  and 
compressive  strength  for  negative  normal  stress.  This  method  of  taking 
into  account  different  tensile  and  compressive  properties  follows  those  used 
previously  by  other  investigators.  ’  Equation  (2)  can  now  be  written  m 
four  forms  corresponding  to  the  four  quadrants  of  the  0^.  -  0^.  stress  space. 
The  quadrant  descriptions  are  as  follows: 


Quadrant 

5c 

0 

y 

Axial 

Strength 

Transverse 

Strength 

Strength 

Ratio 

1 

positive 

positive 

X 

Y 

r  j  =  X/Y 

2 

negative 

positive 

X1 

Y 

r2  =  X'/Y 

3 

negative 

negative 

X' 

Y1 

r3  =  X'/Y 

4 

positive 

negative 

X 

Y* 

r4  =  X/Y' 

4 


In  terms  of  these  definitions,  the  yield  condition  given  by  Equation  (2) 
becomes,  in  the  order  of  the  corresponding  quadrant: 


The  signs  for  the  principal  strengths  are  always  positive;  those  for  the 
stress  components  are  positive  or  negative,  corresponding  to  the  appro¬ 
priate  quadrant  in  the  stress  space.  Diagrammatically,  the  yield  surface 
can  be  represented  in  dimensionless  form  as  shown  in  Figure  1. 

For  unidirectional  glass -epoxy  composites  (v^  =  70%), 


rl 

=  X/Y 

150/4 

=  37.5 

r2 

=  X'/Y  = 

150/4 

=  37.5 

r3 

=  X'/Y'  = 

150/20 

=  7.  5 

rA 

=  X/Y1  = 

150/20 

=  7.  5 

This  is  represented  by  the  solid  curves  in  Figure  2. 
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Figure  1.  Comparative  Yield  Surfaces 


Figure  2.  Yield  Surfaces  for  Glass-Epoxy  Composites 


The  yield  conditions  of  Equations  (2)  through  (6)  apply  to  an  ortho  - 
tropic  material  in  the  directions  of  its  material  symmetry  axes.  For  uni¬ 
directional  composites,  the  symmetry  axes  are  parallel  and  perpendicular 
to  the  fibers.  If  the  fibers  are  oriented  other  than  0-  or  90 -degrees  with 
respect  to  the  externally  applied  load,  the  applied  stress  components  a, 

i  =  1,  2,  6,  must  be  transformed  to  the  symmetry  axes,  i  =  x,  y,  s,  before 

2 

the  yield  condition  can  be  applied.  The  usual  transformation  equation  for 
stress  components,  in  matrix  form,  is 


For  uniaxial  tension, 

Ul  -  positive,  CTZ  =  cr^  =  0  (8) 
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In  the  same  manner,  for  uniaxial  compression,  the  appropriate  yield  condi- 

A  m2n  +  r2  n4  =  (X'/CT^2  (11) 

where  S3  =  s  =  X'/S,  r3  =  r  =  X'/Y' 

For  pure  shear,  the  yield  condition  corresponding  to  the  second  or 
fourth  quadrant  will  be  needed.  This  can  easily  be  derived  by  taking  cr^  as 
the  only  nonzero  stress  component.  If  r^  and  r^  are  different,  which  is 
usually  the  case,  the  shear  strength  of  a  unidirectional  composite  will  have 
different  values  depending  on  the  direction  of  the  applied  shear,  i.e.  ,  posi¬ 
tive  or  negative  shear. 

In  summary,  the  initial  yielding  of  a  unidirectional  composite,  when 
subjected  to  a  complex  state  of  stress,  is  governed  by  one  of  four  possible 
yield  conditions.  The  appropriate  condition  to  be  used  is  determined  by  the 
signs  of  the  normal  stress  components.  If  the  tensile  and  compressive 
strengths  are  equal,  the  four  conditions  reduce  to  one  equation;  such  is  the 
case  in  Equation  (4)  of  Reference  3. 

Compressive  Properties 
2 

In  a  previous  study,  the  principal  strengths  were  limited  to  tensile 
loading  only.  However,  in  the  strength  analysis  of  a  structure  subjected  to 
combined  loading,  the  compressive  properties  of  unidirectional  composites 
must  also  be  known. 

Compressive  elastic  moduli  have  been  found  to  be  approximately  the 
same  as  tensile  moduli  for  glass -epoxy  composites  and  boron-epoxy 
composites.  ^  Compressive  axial  and  transverse  strengths,  X1  and  Y1, 


tion  equation  is 


respectively,  can  be  determined  by  the  compressive  loading  of  0-  and 
90 -degree  specimens.  Compression  tests  are  known  to  be  difficult  to 
perform.  Test  results  often  are  affected  by  the  geometric  configuration 
of  the  specimen.  Competing  modes  of  failure,  i.e.,  buckling  and  strength, 
are  operative. 

As  an  indication  of  the  difficulty  of  direct  measurement  of  the  com¬ 
pressive  axial  strength,  X',  the  numerical  value  of  X’  for  glass -epoxy 
composites  has  been  reported  as  anywhere  within  a  range  of  from  100  to 
250  ksi,  depending  upon  the  test  method  used.  In  flexural  tests  of  0 -degree 
specimens,  which  include  a  hoop-wound  ring  pin -loaded  at  diametrically 
opposite  points,  most  failures  are  of  the  tensile  type.  It  appears  reason¬ 
able  to  assume  that  the  compressive  strength  is  at  least  equal  to,  if  not 
higher  than,  the  tensile  strength.  In  the  present  work,  a  value  of  150  ksi 
is  assumed  for  both  the  tensile  and  compressive  strengths  of  the  glass - 
epoxy  composite.  This  value  is  undoubtedly  conservative. 

The  compressive  transverse  strength  Yf  is  comparatively  simple  to 
determine  because  of  its  low  numerical  value.  For  glass-epoxy  composites, 
with  v£  =  70  percent,  the  value  of  Yl  is  between  16  and  24  ksi.  The  lower 
values  were  obtained  using  specimens  having  rectangular  cross  sections; 
the  higher  values,  circumferentially  wound  tubes  with  over -wound  (rein¬ 
forced)  ends.  No  gross  buckling  of  the  specimens  was  observed.  Using  the 
experimentally  determined  principal  strengths, 

X'  =  150  ksi 

Y1  =  20  ksi 

S  =6  ksi 
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from  which, 


r 3  =  X'/Y1  =  150/Z0  =  7.5 
s  3  =  X'/S  =  150/6  =  25 

one  can  determine,  using  Equation  (11),  the  uniaxial  compressive  strength 
CTj  as  a  function  of  fiber  orientation.  The  resulting  curve,  together  with 
experimental  data,  is  shown  in  Figure  3.  The  corresponding  uniaxial  stiff¬ 
ness  and  tensile  strength  are  also  shown.  The  tensile  and  compressive 
stiffnesses  are  practically  identical  when  the  strain  is  small,  i.e.  ,  in  the 
order  of  0.  1  percent. 

Strength  of  Laminated  Composites 

For  the  sake  of  completeness,  the  strength  analysis  of  laminated 
composites  described  in  Reference  2  is  summarized  here.  Essentially,  the 
strength  of  materials  approach  is  used,  whereby  the  normals  to  the  middle 
surface  remain  undeformed  during  the  stretching  and  bending  of  the  compos¬ 
ite  plate.  The  total  strain  at  any  point  in  the  plate  is  defined  as 

e.  =  e°  +  zx.  (12) 

It  is  further  assumed  that  each  constituent  layer  of  the  laminated  composite 
is  mechanically  and  thermally  anisotropic,  i.e.  , 

°i  =  cij  <£j  -  “jT>  <i3> 

where  i,  j  =1,2,  and  6. 
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FILAMENT  ORIENTATION  ( 8 ) 

Figure  3.  Uniaxial  Properties  of  Glass-Epoxy  Composites 


(A..,  B..,  D.. 
ij  ij  ij 


C..  (1,  z,  zT)  dz 
^  J 


Equations  (14)  and  (15)  are  the  basic  constitutive  equations  for  a  laminated 
anisotropic  composite,  taking  into  account  equivalent  thermal  loadings. 

The  stress  at  any  location  across  the  thickness  of  the  composite  can 

2 

be  expressed  in  the  following  manner.  Having  established  that 
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then,  by  matrix  inversion, 


H  =  BA-1 

❖  -1 
D  =  D  -  BA  B 

^  ^  1  ^ 

T  T  —  I  ^ 

A'  =  A  -  B  D  H 
B'  =  H '  =  B*DV_1 

D'  =D"_1 

Substituting  Equation  (21)  into  (12) 

e  =  (A!.  +  zB!.)  N.  +  (b!.  +  zD!.)  M. 
i  ij  ij  J  ij  ij  J 


(20) 


(21) 


(22) 
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This  is  the  most  general  expression  for  stresses  as  functions  of  stress 
resultants,  bending  moments,  and  temperature.  The  same  material  coeffi¬ 
cients  A1,  B1,  and  D1,  as  reported  in  Reference  2,  can  be  used  for  the  thermal 
stress  analysis.  This  simple  link  between  the  isothermal  and  nonisothermal 

analyses  is  achieved  by  treating  thermal  effects  as  equivalent  mechanical 
T  T 

loads,  e.g.  ,  N  ^  and  in  Equation  (17).  Determining  the  level  of  external 
load  INk  and/or  bending  moment  M/  that  will  initiate  failure  in  one  or  several 
of  the  constituent  layers  is  not  a  straightforward  calculation.  This  is  due  to 
the  fact  that  the  stress  components  (X  (i  =1,2,6)  computed  from  Equation 
(24)  must  be  transformed  into  the  x-y  coordinates  (i  =  x,  y,  s),  which  repre¬ 
sent  the  material  symmetry  axes,  before  the  signs  of  the  stresses  and  cr^  > 
whether  positive  or  negative,  can  be  determined.  Only  after  the  signs  of  cr^ 
and  (X  are  known,  can  the  proper  yield  condition  be  selected.  The  actual 
numerical  method  by  which  the  maximum  allowable  loadings  (hh  and/or  Mj 
are  determined  is  outlined  in  detail  in  Appendix  A. 


A  cylindrical  shell  is  one  of  the  basic  structural  shapes.  When  a 
shell  is  subjected  to  homogeneous  loading,  e.g.  ,  uniaxial  tension  or  com¬ 
pression,  internal  or  external  hydrostatic  pressure,  or  pure  shear,  the  shell 
maintains  its  shape.  There  is  no  change  in  curvature  in  either  the  circum¬ 
ferential  or  the  longitudinal  direction.  Because  of  this  geometric  constraint 
imposed  on  cylindrical  shells  under  homogeneous  loadings,  the  induced  stress 
distribution  can  be  represented  by  simpler  relations  than  those  just  outlined. 
By  assuming  no  change  in  curvature  (this  can  be  represented  by  letting 
K  s  0),  the  total  strain  is  now  equal  to  the  in-plane  strain.  This  is  obtained 
directly  from  Equation  (12)  by  letting  x  s  0.  Strain  is  therefore  homogeneous 
across  the  thickness  of  the  shell,  i.  e.  ,  independent  of  z. 
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For  cylindrical  shells,  the  stress  components  for  each  layer  are  also 
constant,  as  given  by  Equation  (13).  Using  Equation  (20),  one  can  immediately 
determine  the  in-plane,  i.e.  ,  total  strain  caused  by  N-, 


>;<  — 

A..  N. 
U  J 


(25) 


The  stress  components  are: 


cFh 

J 


Being  independent  of  z,  this  equation  is  considerably  simpler  than 
Equation  (24). 


(26) 


The  strength  analysis  of  cylindrical  shells  subjected  to  a  few  fre¬ 
quently  occurring  loading  conditions  has  also  been  programmed.  The  entire 
program  is  outlined  in  detail  in  Appendix  A. 


Post-Yielding  Behavior 

For  most  fiber -reinforced  composites  presently  available,  initial 
yielding  is  often  dictated  by  the  values  of  the  transverse  and  shear  strengths, 
which  are  significantly  lower  than  the  axial  strength.  The  initial  yielding 
introduces  failures  parallel  to  the  fibers.  These  failures  are  audible  during 
the  loading  and  become  visible  soon  after  the  theoretically  predicted  yield 
stress  is  attained. 


The  post -yielding  behavior  of  cross -ply  composites  has  been  investi- 
2 

gated  previously.  For  a  cross -ply  composite  subjected  to  a  uniaxial  tensile 
load  in  the  direction  of  the  fibers  of  one  of  the  constituent  layers,  additional 
load  can  be  supported  after  initial  yielding  until  ultimate  fiber  failure  is 
induced.  Thus,  initial  yielding  does  not  necessarily  determine  the  load¬ 
carrying  capacity  of  a  laminated  composite.  After  one  or  more  layers  have 
yielded,  the  layers  of  the  laminated  composite  which  are  still  intact  must  be 
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investigated  to  ascertain  whether  or  not  they  can  support  the  prevailing 
externally  applied  load. 

However,  in  the  case  of  an  angle -ply  composite  under  uniaxial  tension, 

the  still  intact  layers  cannot  carry  the  existing  load  after  initial  yielding.  For 

Z 

this  reason,  there  is  no  post -yielding  load-carrying  capability.  Thus,  under 
uniaxial  tension  applied  along  one  of  the  material  symmetry  axes  of  the  com¬ 
posite,  cross -ply  composites  can  carry  additional  load  after  the  initial  yield¬ 
ing  but  angle -ply  composites  cannot. 

A  general  theory  for  the  analysis  of  the  post -yielding  behavior  of  a 
laminated  composite  is  difficult  to  formulate  because  the  material  is  trans¬ 
formed  from  a  continuum  to  a  11  dis continuum1'  on  the  microscopic  scale.  A 
theory  will  be  proposed  in  this  report,  using  some  of  the  assumptions  of  the 
conventional  netting  analysis.  It  is  assumed  that,  after  initial  yielding,*  the 
unidirectional  layers  of  a  composite  can  carry  tensile  load  only  along  the 
fiber  axis.  To  maintain  static  equilibrium,  load  transverse  to  the  fibers 
and  distortional  load  must  be  carried  by  other  internal  agencies  of  the 
composite.  Such  agencies  may  be  derived  from  filament  crossovers  in  the 
case  of  a  helical -wound  structure,  or  from  some  end  constraint  typical  of 
shell-type  structures,  e.g.,  at  the  shell-and -head  junction. 

An  internal  agency  is  necessary  for  the  transfer  of  the  externally 
applied  loads  to  axial  loads  along  the  unidirectional  fibers.  Before  initial 
yielding,  this  internal  agency  is  achieved  by  the  binding  matrix.  The  entire 
composite  is  a  continuum.  After  initial  yielding,  failure  in  the  matrix  and/or 
at  the  fiber -matrix  interface  is  introduced.  Fibers  are  apparently  still  intact. 
In  the  case  of  angle -ply  composites  under  uniaxial  loading,  no  internal  agency 


A  composite,  after  initial  yielding  occurs,  is  referred  to  as  a  "degraded" 
composite  in  Reference  Z. 
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is  operative  after  the  initial  failure.  Complete  failure  of  the  composite  occurs 
immediately  after  initial  yielding.  However,  in  the  case  of  cross -ply 
composites,  an  internal  agency  is  not  needed  for  transferring  the  external 
load.  Since  some  of  the  filaments  are  aligned  parallel  to  the  applied  load, 
they  can  continue  to  carry  load  until  filament  failure  is  reached. 

Filament -wound  structures  often  acquire  filament  crossovers  during 
winding  with  a  helical  pattern.  This  type  of  composite  may  be  represented  by 
an  angle -ply  with  filament  crossovers.  The  geometric  distribution  and  the 
frequency  of  occurrence  of  filament  crossovers  for  a  given  helical -wound  tube 
depend  on  the  helical  angle,  the  width  of  the  roving,  the  diameter  of  the  tube, 
and  other  process  parameters,  which  may  include  the  characteristics  of  the 
winding  machine.  In  the  present  investigation,  it  is  assumed  that  the  effect  of 
filament  crossovers  introduces  two  factors: 

(1)  As  an  internal  agency,  filament  crossovers  provide 
additional  load -carrying  capacity  to  helical -wound 
composites.  This  strengthening  of  angle -ply 
composites  is  exhibited  by  higher  effective  transverse 
and  shear  strengths,  designated  as  Y  and  S,  respectively. 

(2)  In  contradiction  to  the  strengthening  effect  above,  filament 
crossovers  will  be  sources  of  stress  concentrations, 
since  filaments  can  be  subjected  to  direct  abrasion  among 
themselves.  Therefore,  crossovers  will  tend  to  reduce 
the  axial  strength  X  of  the  constituent  layers. 

Because  of  the  existence  of  filament  crossovers,  it  may  be  necessary 
to  treat  helical-wound  composites  differently  than  angle -ply  composites.  It 
may  be  possible  for  helical -wound  composites  to  carry  a  higher  load  because 
of  the  internal  agency  generated  by  the  crossovers.  The  ultimate  load  that 
the  composite  can  carry  will  be  governed  by  either  the  breakdown  of  the 
internal  agency  which  is  needed  to  transfer  external  loads  or  filament  failure. 
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In  conclusion,  the  post -yielding  behavior  of  laminated  composites  is 
dictated  by  the  ability  of  the  filaments  which  are  still  intact  to  sustain  con¬ 
tinued  loading.  This  is  accomplished  in  cross -ply  composites  when  subjected 
to  uniaxial  tension  or  internal  pressure,  for  example,  by  having  filaments 
aligned  parallel  to  the  applied  load.  The  post -yielding  capability  can  also  be 
achieved  by  means  of  an  internal  agency  in  the  composite,  an  example  of 
which  is  due  to  the  filament  crossovers  which  exist  in  woven  fabric  and 
helical -wound  structures.  Angle -ply  composites  under  uniaxial  load  do  not 
have  a  post -yielding  capability  because  fibers  are  not  aligned  in  the  direction 
of  applied  loads,  nor  is  there  an  internal  agency  for  load  transfer.  Assuming 
that  an  internal  agency  is  available  in  a  composite  such  that  the  externally 
applied  load,  N  ,  i  =  1,  2,  6,  can  be  transferred  to  an  axial  load,  N^,  in  the 

unidirectional  layers,  one  can  derive  the  relation  between  the  axial  stress; 

N^,  of  a  unidirectional  constituent  layer  and  INL  as  follows. 

As  shown  in  Figure  4a,  the  equilibrium  of  forces  between  the  exter¬ 
nally  applied  load,  N^,  and  the  induced  load,  N^,  in  the  direction  of  the  fibers 
must  satisfy  the  relation: 


Nf  cos  O' 


A  cos  a 


N£  =  N1/cos2a  =  N^/m2 


In  order  to  maintain  equilibrium  in  the  2  -direction,  an  internal 


force,  N^j,  must  be: 


x'21 

A  sin  a 


sin  O' 
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or 


2  Z^r  ZAT  ,  2 

N21  =  '  Nf  sin  a  =  ‘  n  Nf  =  -  n  N1/m 


Similarly,  in  Figure  4b,  the  equilibrium  of  forces  between  the 
externally  applied  load,  N2>  and  the  induced  load,  Nf,  results  in  the 
condition: 

Nf  =  N2/n2 


2  2  2 
Nj2  =  mNf  =  m  N^/n 


In  the  case  of  an  externally  applied  shear  force,  N^,  the  equilibrium 
condition,  as  shown  in  Figure  4c  must  satisfy: 


Nf  N6  sin  a  N6  cos  a  . 

A~  =  —  A  cos  a  —  A  sin  a  ~  ~  Amn 


Nf  =  +  N^/mn 


The  internally  induced  load,  N,  /,  in  this  case  is  zero  because 


n66  _  N6  cos  a  _  N6  sin  a  =  Q 

A  A  cos  a  A  sin  a 


Equations  (28),  (31),  and  (34)  show  the  contribution  of  each  externally 
applied  load,  Nj,  N2,  and  N&,  to  the  axial  stress  along  the  unidirectional 
layer  with  an  orientation  of  Ot  degrees  from  the  1-axis.  The  total  axial 
stress  is,  by  superposition: 


N1  ,  N2  ,  N6 

Nf  =  2  't'S 

m  n 


20 


This  equation  gives  the  maximum  load-carrying  capacity  of  each  uni¬ 
directional  constituent  layer  of  a  laminated  composite.  The  ultimate  load  is 
governed  by  the  axial  strength,  X,  of  each  unidirectional  layer.  It  is,  of  course, 
assumed  that  some  internal  agency  of  the  laminated  composite,  by  virtue  of 
the  filament  crossovers,  is  capable  of  supporting  the  internal  forces  an^ 
at  least  up  to  the  axial  strength  of  the  constituent  layers. 

The  validity  of  this  analysis  is  limited  to  the  capability  of  the  internal 
agency  to  transfer  the  load.  In  particular,  the  filament  crossovers  in  helical- 
wound  tubes  will  be  examined  as  a  specific  internal  agency.  As  stated  pre¬ 
viously,  the  effect  of  crossovers  may  be  characterized  by  effective  transverse 
and  shear  strengths,  Y  and  S,  higher  than  those  of  unidirectional  composites, 
and  by  a  reduction  in  the  effective  axial  strength  X,  possibly  caused  by  the 
abrasive  action  between  filaments  at  crossover  points.  Presently,  the  exact 
change  in  magnitude  of  these  effective  strengths  must  be  determined  experi¬ 
mentally.  Future  investigations  may  provide  a  basis  for  the  theoretical  pre¬ 
diction  of  these  values. 

In  the  next  two  sections,  detailed  procedures  for  the  determination  of 
the  load-carrying  capacity  of  cross -ply  and  helical -wound  tubes  will  be  out¬ 
lined.  The  theoretical  results  will  be  compared  with  experimental  data, 
using  E  glass  and  epoxy  as  the  constituent  materials. 
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Cross-Ply  Composites 


In  this  paragraph,  the  deformation  and  ultimate  strength  of 
cross-ply  composites  are  discussed.  Theoretical  predictions,  using  the 
strength  analysis  program  outlined  in  Appendix  A,  are  made.  A  sample 
problem  is  presented  in  detail  and  numerical  results  are  tabulated.  The 
theoretical  results  are  then  compared  with  experimental  data. 

A  cross-ply  composite  consists  of  two  systems  of  unidirectional 
constituent  layers  with  adjacent  layers  oriented  orthogonal  to  each  other. 

There  are  two  lamination  parameters:  (1)  the  total  number  of  layers,  n,  (each 
layer  may  consist  of  one  or  more  unidirectional  plies  of  roving,  all  of  which 
must  have  the  same  fiber  orientation),  and  (2)  the  cross-ply  ratio,  m,  which 
is  defined  as  the  ratio  of  the  total  thickness  of  all  the  layers  oriented  in  one 
direction  to  the  total  thickness  of  the  layers  in  the  orthogonal  direction.  For 
laminated  beams  and  plates,  as  reported  in  References  1  and  2,  the  cross-ply 
ratio  is  computed  using  the  layers  with  0  degree  orientation,  as  measured 
from  the  reference  coordinate  system,  as  the  first  system  of  layers.  In  the 
case  of  cylindrical  pressure  vessels,  which  will  be  discussed  in  this  para¬ 
graph,  the  cross-ply  ratio  is  defined  on  the  basis  of  the  outermost  layer  as 
being  in  the  first  system  of  layers.  If  the  outermost  layer  is  a  hoop  winding, 
which  is  usually  the  case,  then  the  cross-ply  ratio  is  the  ratio  of  the  thick¬ 
ness  of  all  the  hoop  windings  to  that  of  the  longitudinal  windings. 

The  deformation  and  ultimate  strength  of  cross-ply  specimens 

12  7 

subjected  to  uniaxial  tension  has  been  reported  previously.  *  ’  However, 

a  computational  error  in  the  calculation  of  the  stress  at  initial  yielding  (the 
knee)  has  been  discovered.  The  corrected  theoretical  result  is  as  follows: 

Initial  Yielding,  N|/h,  ksi 

7.9 
13.  7 
17.  6 
19.  1 
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These  results  have  been  computed  using  the  following  material 
properties,  which  are  the  same  as  those  reported  previously : 


CiV  =  C22  =  7.97  xl06psi 


=  0.  66  x  10  psi 


2.  66  x  10  psi 


C6t>  -  C  66  =  >•  25  x  1(|6  P’1 


M)  _  r(D  _  c(2)  -  c(2) 

C16  "  °26  "  °16  ”  26 


0/^  -  =  3.  5  x  10  in.  /in.  /  °F 


=  11. 4  x  10'6in. /in. /°  F 


=  a ^  =  0 
6  6 


T  =  -200°F  (lamination  temperature) 


n  =  3  (number  of  layers) 
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In  addition,  the  following  strength  data  are  used: 


X  =  X'  =  150  k si 


Y  =  4  ksi 

Y'  =  20  ksi 


(38) 


S  =  6  ksi 

These  material  properties  are  required  inputs  in  the  strength  analysis 
program  outlined  in  Appendix  A.  The  corrected  theoretical  results  show 
better  agreement  with  the  experimental  results,  as  can  be  seen  in  Figure  5 
(which  is  Figure  6  of  Reference  2  and  Figure  3  of  Reference  7  with  the  cor¬ 
rected  initial  yielding  curve  shown).  The  procedure  for  the  determination  of 
the  post  yielding  stiffness  and  the  ultimate  load  is  also  outlined  in  these 
references.  Essentially,  post-yield  load  carrying  capability  is  possible  for 
cross-ply  composites  because  the  filaments  in  the  direction  of  the  applied 
uniaxial  load  can  carry  the  prevailing  load.  No  internal  agency  for  load 
transfer  is  required  in  this  case.  The  ultimate  load  is  obtained  when  the 
axial  strength  of  the  unidirectional  layer  is  reached,  i.  e.  ,  when 
X  =  150  ksi. 

It  is  important  to  recognize  that  the  value  of  the  axial  strength  X  is 
experimentally  determined.  It  is  not  calculated  from  the  fiber  strength  using 
the  rule -of -mixtures  equation,  from  which,  for  E  glass,  the  computed  axial 
strength  would  be  400  x  2/3  =  266  ksi  (filament  strength  times  percent  fila¬ 

ment  volume) . 

Cross-ply  pressure  vessels  will  now  be  examined.  A  typical  vessel 
is  shown  in  Figure  6.  The  middle  third  of  the  vessel  is  the  test  section, 
the  ends  being  built  up  from  special  aluminum  fittings.  The  basic  design  of 
the  vessel  was  developed  at  Aeronutronic  under  another  research  program. 
The  longitudinal  layers  were  laid  up  by  hand  and  the  hoop  layers  wound  by 
machine.  The  rovings  used  were  20-end  E  glass  preimpregnated  with  epoxy 
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UNIAXIAL  STRENGTH,  N^/h  (ksi)  UNIAXIAL  STIFFNESS  (10°  psi) 
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resin.  Two-element  strain  gages  were  bonded  to  each  pressure  vessel  with 
the  elements  oriented  in  the  hoop  and  longitudinal  directions.  Internal  pres¬ 
surization  was  achieved  using  hydraulic  oil  and  a  pumping  arrangement 
specifically  designed  for  testing  pressure  vessels.  Internal  pressure  and 
strains  were  recorded  by  a  multi-channel  continuous  recorder.  Using  the 
material  properties  listed  in  Equations  (37)  and  (38)  in  the  program  outlined 
in  Appendix  A,  the  results  given  in  Table  I  were  obtained  for  cross-ply 
ratios  of  0. 4,  1.0  and  4.  0.  * 


TABLE  I 

CROSS-PLY  PRESSURE  VESSELS  -  INTERNAL  PRESSURE 


Cros  s-ply 
Ratio  (m) 

-V* 

An 

* 

A12 

/ 1  r\~  ^  /ik\ _ 

4 

N2/h 

(hoop  stress 
at  initial 
yielding) 

Yielding 

Location 

j  \  J.  Ail  /  A..*-'  j  ! 

0.4 

0.  158 

-0.025 

0.  Z44 

9.  3  ksi 

Long. 

1.0 

0.  191 

-0.024 

0.  191 

1Z.  8  ksi 

Long. 

4.  0 

0.  Z73 

-0. 026 

0.  147 

14.  6  ksi 

Hoop 

*The  numerical  values  of  the  A*  matrix  are  also  given  on  pp  65,  67,  and  69 
of  Reference  Z  with  the  axes  1  and  Z  interchanged.  This  change  is  necessary 
because  of  the  differences  in  the  definitions  of  the  cross-ply  ratio  cited 
earlier  in  this  section. 
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(42) 


where  h  represents  the  total  wall  thickness  of  the  pressure  vessel. 

Taking  as  7.8x  10^  psi,  which  is  representative  of  an  E  glass  - 

epoxy  composite  with  a  fiber  volume  of  approximately  65  percent,  the 
longitudinal  and  hoop  strains,  before  and  after  initial  yielding  (the  knee), 
are  obtained  from  Equations  (39)  through  (42).  These  are  given  in  Table  II. 


TABLE  II 


LONGITUDINAL  AND  HOOP  STRAINS  OF  CROSS-PLY  VESSELS 


Cross  -ply 
Ratio 
(m) 

Before  Yielding 

After  Yielding 

Enh  e- 

Ellh  e° 

Ellh  e° 

Eilh  e° 

PR  1 

PR  2 

PR  1 

PR  2 

0.4 

0.42 

1. 81 

0.  70 

3.  50 

1.  0 

0.  55 

1.40 

1. 00 

2.  00 

4.  0 

0.  86 

1. 05 

2.  50 

1.  25 

The  burst  pressure  of  the  cross-ply  vessels  may  be  predicted  as 
follows:  First,  the  axial  stress  in  the  unidirectional  composite  at  the  initial 
yielding  must  be  determined.  Assuming  that  the  outermost  layer  of  all 
vessels  is  in  the  hoop  direction  (along  the  2-axis),  the  stress  components 
that  represent  the  normal  stress  along  the  fibers  are: 


(1) 

(2) 


Hoop  layers  (odd  layers) 


or 


Longitudinal  layers  (even  layers)  : 


or  <7 


(L) 

1 


where  the  superscripts  designate  the  layers,  and  the  subscripts  the  direction 
of  the  normal  stresses.  These  stresses  can  be  computed  from  Equation  (26). 
In  the  present  case,  2N^  =  N^,  N^  being  equal  to  the  lowest  yield  stress, 

since  the  computed  yield  stress  for  each  constituent  layer  may  be  different. 


As  a  sample  problem,  the  case  of  m  =  0.4  will  now  be  outlined.  The 
lowest  initial  yield  stress  for  this  case  is  N^  =  9.3  ksi  (from  Table  I).  The 
yielding  occurs  in  the  longitudinal  layer.  The  yield  stress  of  the  hoop  layer 
would  be  N^  =  23.  3  ksi  if  the  longitudinal  layer  could  sustain  a  load  equal  to 
or  higher  than  this  value.  The  axial  stresses  in  the  longitudinal  and  hoop 
layers  can  be  calculated  from  the  stress  coefficients,  which  are  obtained 
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directly  from  the  program  outlined  in  Appendix  A  (or  from  page  65  of 
Reference  2  provided  subscripts  1  and  2  are  interchanged).  Substituting 
N9  =  9.  3  ksi  and  N,  =  N?/2  =  4.  65  ksi,  one  can  compute  the  axial 
stres  ses : 


cr'/1'  =  -0.095  (4.65)  +  1.92(9.3)  -  0.0255  (200) 

-  12.30  ksi  <«> 

CT(E)  =  1.239(4.65)  -  0.0381  (9.3)  -  0.0062  (200) 

-  4.  17  ksi  <44> 

For  cross-ply  composites,  it  is  assumed  that,  after  initial  yielding, 
a  complete  uncoupling  of  constituent  layers  of  the  laminated  composite  is 
induced.  Each  layer  will  operate  independently.  This  complete  uncoupling 
has  been  reported  in  Reference  2  and  appears  reasonable  for  cross-ply  com 
posites  in  general  because  of  the  lack  of  an  internal  agency  to  bind  or  lock 
the  laminates  together.  From  Equations  (43)  and  (44),  each  layer  is  axially 
stressed  either  to  12.  30  or  4.  17  ksi.  Fiber  failure  will  be  induced  if  the 
axial  stress  reaches  150  ksi,  which  is  the  experimentally  determined  axial 
strength.  Thus,  the  first  layer  (the  odd  or  hoop  layers)  can  sustain  an 
additional  axial  stress  of: 


nJH>  =  150  -  12 


138  ksi 


and  the  second  layer: 


150  -  4  =  146  ksi 


In  a  completely  uncoupled  laminate, 


■(H)  _ 


E11  ?2  ’ 


N(L)  _  E  eo 

Nf  ~  E11  £1 
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Substituting  these  conditions  into  Equations  (41)  and  (42)  and  solving 
for  the  additional  hoop  stress,  N^,  that  the  pressure  vessel  can  sustain  be¬ 
yond  the  initial  yielding: 

(48) 

(49) 

Using  the  values  of  Equations  (45)  and  (46)  and  m  =  0.4, 


N 


(H)  _ 


=  PR  = 


y-p —  E .  ,  %  h 

1  +  m  11  2 


m 


1  + 


m 


N<H>h 


N 


(L)  _ 


=  PR  = 


1  +  m  E11 


C1  h 


vf-  NJL)  h 

1  +  m  f 


N 


(H) 

2 


/h 


=  0. 286  x  138 


39.4  ksi 


(50) 


/  h 


1. 43  x  146  =  209  ksi 


(51) 


Thus,  the  burst  strength  is 

N^HVh  =  39.4  +  9.3  =  48.  7  ksi  (52) 

and  the  fiber  failure  is  induced  in  the  hoop  layers. 

Similar  calculations  for  other  cross-ply  ratios  have  also  been  com¬ 
puted  and  the  results  listed  in  Table  III. 
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TABLE  III 


CROSS-PLY  PRESSURE  VESSELS 


Cros  s-ply 

Ratio 

(m) 

Initial 

Yielding 

(N2/h) 

Ultimate 

Strength 

(N2/h) 

F  ailure 
Location 

0.4 

9.3 

48.  7 

Hoop 

1.0 

1Z.  8 

64.  5 

Hoop 

4.  0 

14.  6 

56.  8 

Long. 

The  theoretical  results  listed  in  Tables  II  and  III  will  now  be  compared 
with  experimental  data  obtained  for  cross-ply  pressure  vessels.  During 
pressurization,  both  hoop  and  longitudinal  strains  were  recorded  by  a  con¬ 
tinuous  strain  recorder,  along  with  the  internal  pressure.  In  the  neighbor¬ 
hood  of  the  predicted  initial  yielding,  a  cracking  noise  could  be  heard,  this 
being  attributed  to  a  failure  either  in  the  matrix  or  at  the  fiber-matrix 
interface.  Upon  further  pressurization,  the  recorded  strains  followed  a 
secondary  slope  which  agreed  well  with  the  theoretical  prediction  based  on 
netting  analysis.  The  observed  burst  pressures  came  within  20  percent  of 
those  predicted  in  Table  III.  Typical  results  of  theory-ver sus- experiment 
for  pressure  vessels  with  cross-ply  ratios  of  0.4,  1.0,  and  4.0  are  shown 
in  Figures  7,  8,  and  9.  In  each  of  these  figures,  the  number  of  layers 
equals  two  and  three.  According  to  the  theory,  there  should  be  no  differences 
between  the  two  cases  for  pressure  vessels  because  change  of  curvature  does 
not  occur.  The  stress  in  each  layer  does  not  vary  across  its  thickness 
(radial  direction).  The  experimental  data,  which  are  shown  as  dots,  agree 
well  with  the  theoretical  predictions,  not  only  at  the  burst  pressure  but  also 
in  predicting  initial  yielding  and  the  primary  and  secondary  slopes  (the  slopes 
before  and  after  yielding).  As  stated  in  Reference  2,  the  conventional  netting 
analysis  is  less  exact  than  the  present  theory.  The  pressure-versus- strain 
relations  are  linear  rather  than  bilinear  in  a  netting  analysis.  Also,  the 
ultimate  burst  pressure  is  computed  using  some  value  of  glass  strength  cor¬ 
rected  by  the  fiber  volume  ratio.  For  the  glass  used  in  the  present 
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INTERNAL  PRESSURE  (psi)  INTERNAL  PRESSURE  (psi) 


experiments,  the  strength  is  approximately  400  ksi.  Using  a  volume  ratio 
of  67  percent  glass,  the  strength  in  the  direction  of  the  fibers  would  be 
approximately  270  ksi,  which  is  considerably  higher  than  the  experimentally 
determined  strength  of  150  ksi.  In  fact,  the  factor  between  the  theoretically 
predicted  strength  using  a  linear  correction  factor  of  the  fiber  volume  and 
those  actually  measured  is  270/150  =  1.8.  It  is,  therefore,  important  to 

emphasize  that  the  150  ksi  axial  strength  is  a  more  realistic  value,  not  only 
under  unidirectional  loading  but  also  for  the  design  of  filament-wound  compo¬ 
sites  subjected  to  biaxial  loading. 

For  glass- epoxy  systems,  the  initial  yielding  occurs  at  approximately 
20  percent  of  the  ultimate  burst  pressure.  The  exact  level  of  the  initial 
yielding  can  be  predicted  accurately  for  the  present  system  and  the  present 
theory  is  equally  applicable  to  other  fiber- reinforced  composites.  Depending 
upon  the  relative  values  of  the  transverse  strength  and  the  axial  strength,  the 
level  of  the  initial  yielding  will  vary.  In  fact,  an  optimum  composite  material 
may  very  well  be  one  in  which  the  initial  yielding,  signifying  failure  of  the 
matrix  and/or  the  interface,  coincides  with  the  ultimate  burst  pressure,  which 
in  the  case  of  cross-ply  pressure  vessels  signifies  fiber  failure.  Optimization 
can  also  be  achieved  such  that  both  the  longitudinal  and  hoop  windings  fail 
simultaneously.  Using  a  netting  analysis,  the  latter  condition  is  satisfied  if 
the  cross-ply  ratio  is  2.  According  to  the  present  theory,  this  ratio  is 
dependent  upon  the  basic  properties  of  the  constituent  layers.  Such  proper¬ 
ties  include  the  elastic  moduli  and  the  axial,  transverse,  and  shear  strengths. 

In  Figure  10  are  shown  typical  failures  of  cross-ply  pressure  vessels. 
In  the  upper  vessel,  a  failure  in  the  longitudinal  layer  was  apparently  initiated 
first.  This  vessel  had  a  cross-ply  ratio  of  4.  In  the  lower  pressure  vessel, 
hoop  failure  occurred  first.  This  will  be  the  case  for  cross-ply  ratios  of 
both  0 . 4  and  1.0. 
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Figure  10.  Typical  Pressure  Vessel  Failures 
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Helical-Wound  Tubes 


The  deformation  and  strength  of  helical-wound  tubes  subjected  to 
homogeneous  loadings  will  now  be  examined.  Helical-wound  tubes  are  of 
special  interest  for  two  reasons:  (1)  this  is  a  very  common  method  of  fab¬ 
rication  of  filamentary  structures,  and  (2)  the  occurrence  of  filament  cross¬ 
overs,  which  provide  additional  load- carrying  capability  after  initial  yielding 
because  of  filament  crossovers,  can  be  anticipated.  The  types  of  loadings 
that  will  be  examined  include  uniaxial  tension,  uniaxial  compression,  pure 
torsion,  and  internal  pressure.  The  strength  analysis  outlined  in  the  pre¬ 
vious  paragraph,  using  both  the  continuum  and  dis continuum  models,  will 
be  utilized.  Experimental  results  will  also  be  presented  to  demonstrate  the 
degree  of  accuracy  of  the  theoretical  predictions  of  deformation  and  strength. 

The  filament- wound  tubes  fabricated  during  the  present  test  program 
include  1-1/2,  3,  and  5-inch  I.  D.  tubes  with  helical  angles  from  a  low  value 
of  27  degrees  up  to  the  maximum  of  90  degrees.  A  few  of  the  1-1/2-inch 
tubes  are  shown  in  Figure  11  with  the  helical  angles  marked  on  each  tube. 

The  external  load  Was  applied  to  the  tubes  by  means  of  end  plugs,  which  were 
adhesive-bonded  into  the  tubes.  The  uniaxial  tension  tests  were  performed 
as  shown  in  Figure  12. 

For  uniaxial  compression,  the  ends  of  the  tubes  were  reinforced  with 
additional  hoop  winding  (over-wound)  to  prevent  local  buckling.  The  uniaxial 
compression  tests  were  performed  as  shown  in  Figure  13.  Torsion  tests 
were  conducted  on  the  torsion  machine  shown  in  Figure  14.  Internal  pres¬ 
surization  was  obtained  in  a  manner  similar  to  that  employed  in  the  case  of 
cross-ply  pressure  vessels.  For  the  5 -inch  I.  D.  tubes,  internal  pressure 
6nly  was  applied. 

As  previously  stated,  the  effect  of  filament  crossovers  may  be 
characterized  by  higher  values  of  transverse  and  shear  strengths  than  for 
unidirectional  composites.  The  exact  amount  of  the  increase  must  be 
determined  experimentally  at  this  time.  Taking  advantage  of  the  strength 
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Figure  11.  Helical-Wound  Tubes,  Glass-Epoxy 


analysis  program  outlined  in  Appendix  A,  a  parametric  study  of  the  contri¬ 
bution  of  the  principal  strengths  to  the  level  of  failure  of  the  internal  agency 
can  be  conducted. 

In  Figures  15,  1 6,  17,  and  18,  the  effective  stiffnesses  and  various 
strength  criteria  are  given  for  helical  angles  between  zero  and  90  degrees. 
Appropriate  experimental  points  are  also  shown  in  these  figures. 

The  effective  stiffness  of  helical- wound  tubes  can  be  readily  deter¬ 
ge 

mined  from  the  A  matrix  in  Equation  (25).  The  numerical  values  of  the 
matrix  can  be  obtained  using  the  elastic  moduli  of  Equation  (37)  as  inputs  to 
the  program  outlined  in  Appendix  A. 

By  assuming  that  the  tensile  and  compressive  moduli  are  equal,  the 

-T* 

uniaxial  elongation  or  compression  can  be  determined  from  A^.  The  recip¬ 
rocal  of  this  value  is  plotted  in  Figures  15  and  16,  which  is  equivalent  to  the 
axial  stiffness.  In  Figure  17,  the  effective  shear  stiffness,  the  reciprocal 
of  A^,  is  shown.  In  Figure  18,  the  effective  circumferential  stiffness  is 
shown  as  the  ratio  of  the  circumferential  stress  resultant  to  the  measured 
circumferential  strain.  This  is  obtained  using  the  following  relation,  where 
as  before,  the  1-axis  is  in  the  longitudinal  direction  and  the  2-axis  is  in  the 
circumferential  or  hoop  direction: 

Ehoop  =  Ai2  +  A22^ 

Strain  rosettes  were  bonded  to  the  helical-wound  tubes  with  elements 
oriented  in  the  longitudinal  and  hoop  directions  and  the  tubes  were  subjected 
to  uniaxial  or  internal  pressure  loadings.  For  the  torsion  tube,  the  rosettes 
were  oriented  at  angles  of  ±45  degrees  from  the  longitudinal  axis.  The 
effective  stiffnesses  of  the  tubes  subjected  to  various  loadings  were  com¬ 
puted  from  the  recorded  strains  and  are  shown  in  Figures  15  through  18. 

They  agree  reasonably  well  with  the  theoretical  predications  of  the  program 
outlined  in  Appendix  A,  which  are  shown  as  solid  lines. 
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Figure  18.  Internal  Pressure  Test,  E  Glass-Epoxy  Helical-Wound  Tubes 


The  results  of  the  strength  analysis  are  also  shown  in  these  figures. 
From  the  strength  analysis,  the  various  criteria  for  the  determination  of  the 
load- carrying  capacity  of  the  helical- wound  tubes  can  be  determined. 

Initial  yielding  was  determined  by  using  the  constituent  layer  mate¬ 
rial  constants  given  in  Equations  (37)  and  (38).  The  results  of  the  computa¬ 
tions  are  shown  as  solid  lines  and  labeled  ’’initial  yielding”  in  Figures  15 
through  18. 

The  strength  criterion,  assuming  fiber  failure,  can  be  readily  com¬ 
puted  from  Equation  (36)  using  an  axial  strength  of  X  =  150  ksi.  The 
results  of  this  computation  for  various  loading  conditions  are  shown  as  solid 
lines  and  labeled  ’’fiber  strength”  in  Figures  15  through  18. 

The  effect  of  crossovers  can  be  accounted  for  by  using  effective 
transverse  and  shear  strengths  higher  than  those  of  the  unidirectional 
composites.  These  higher  strengths  can  be  attributed  to  the  additional  rein¬ 
forcement  of  the  filament  crossovers,  similar  to  that  occurring  in  woven 
fabrics.  The  exact  amount  of  this  increase  can  be  experimentally 
determined.  For  the  present,  it  requires  a  parametric  study  using  the 
strength  analysis  outlined  in  Appendix  A.  Various  transverse  and  shear 
strengths  must  be  tried  and  the  results  that  fit  the  experimental  observa¬ 
tions,  as  shown  in  Figures  15  through  18,  can  be  considered  appropriate. 
Consistent  values  of  the  effective  strengths  for  various  loading  conditions 
must  exist,  since  the  effective  strengths  are  treated  as  intrinsic  character¬ 
istics  of  the  material.  Based  upon  experimental  observation,  an  effective 
transverse  strength  of  12  ksi  and  an  effective  shear  strength  of  10  ksi  appear 
to  give  reasonable  results.  They  are  shown  as  solid  lines  in  Figures  15 
through  18  and  labeled  "crossover  strength”.  In  all  cases,  for  intermediate 
helical  angles,  the  crossover  strength  criterion  falls  between  the  initial 
yielding  and  the  ultimate  strength  based  upon  fiber  failure.  In  the  actual 
testing,  initial  yielding  signifies  the  point  where  cracking  in  the  matrix  and/ 
or  interface  becomes  audible  and  visible.  Because  of  the  crossovers, 
complete  uncoupling  between  the  constituent  layers  is  prevented  until  such 
time  as  the  crossovers  can  no  longer  act  as  an  effective  internal  agency  to 
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perform  the  necessary  load  transfer.  Beyond  the  crossover  strength,  the 
composite  material  will  cease  to  be  a  continuum.  In  the  case  of  a  pressure 
vessel,  excessive  leakage  through  the  wall  is  observed  and  the  helical- 
wound  tube  cannot  sustain  additional  pressure. 

In  the  case  of  uniaxial  tensile  loading,  the  crossover  strength  signi¬ 
fies  a  complete  departure  from  a  continuum  and  continued  loading  will  cause 
the  fiber  axes  to  rotate  (a  tendency  to  reduce  the  helical  angle)  and  the  load 
cannot  be  increased.  The  helical- wound  tube  behaves  like  an  elastic- 
perfectly  plastic  material,  permitting  a  large  increase  in  strain  at  a 
constant  stress. 

The  actual  failure  under  uniaxial  compressive  loading  occurred 
between  the  initial  yielding  and  the  crossover  strength.  The  failure  mech¬ 
anism  involved  some  buckling  of  fibers  on  the  microscopic  scale.  There 
was  no  gross  buckling.  Away  from  one  or  two  helical  failure  lines  along 
which  this  microscopic  buckling  had  occurred,  the  helical- wound  tube 
remained  essentially  intact.  There  was  no  indication  that  crossover  points 
had  failed.  For  this  reason,  the  actual  compressive  strength  was  lower 
than  that  predicted  by  the  crossover  strength.  The  failure  mechanism 
under  pure  torsion  also  involved  local  buckling.  But  areas  of  matrix  and 
interface  failures  were  much  more  extensive  than  for  compression. 
Crossover  failures  apparently  had  occurred.  The  experimentally  deter¬ 
mined  ultimate  load  agreed  with  the  theoretical  prediction. 

In  order  to  establish  the  validity  of  filament  crossovers  as  an  inter¬ 
nal  agency  for  load  transfer,  a  comparison  has  been  made  between  the 
behavior  of  helical- wound  tubes  under  tension  and  flat  specimens  cut  from 
panels  made  by  slitting  and  flattening  out  helical- wound  tubes  before  curing. 
This  comparison  demonstrates  that  the  increase  in  strength  of  helical- 
wound  composites  is  derived  from  the  crossovers  rather  than  the  external 
constraint  provided  by  the  end  plugs  bonded  to  a  particular  helical- wound 
tube.  The  flat  specimens  have  cut  fibers,  whereas  in  the  helical- wound 
tubes,  the  filaments  are  continuous  and  anchored  at  the  end  plugs. 
Experimental  results  demonstrate  that  the  ultimate  load  for  both  the  flat 
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specimens  (data  shown  as  squares  in  Figure  15)  and  the  helical -wound  tubes 
(data  shown  as  dots  in  Figure  15)  are  identical.  This  leads  to  the  conclu¬ 
sion  that  crossovers  do,  in  fact,  behave  as  an  internal  agency  for  load 
transfer,  even  when  the  filaments  are  not  continuous,  as  in  the  case  of 
the  flat  specimens.  The  circles  in  Figures  15  and  18  represent  data  ob¬ 
tained  by  testing  3  inch  I.D.  helical-wound  tubes.  The  distribution  of  cross¬ 
overs  for  these  tubes  is  different  than  for  the  1-1/2  inch  I.D.  tubes,  the 
number  of  crossovers  being  fewer.  The  strength  effect  of  the  crossovers  is 
apparently  lower,  thus  making  the  strength  of  the  3  inch  I.D.  tubes  not 
much  different  from  that  predicted  by  the  initial  yielding  criteria.  Of  all 
the  specimens  tested,  as  shown  in  Figures  15  through  18,  fiber  tensile 
failures  were  induced  only  in  the  5  inch  I.D,  pressure  vessels,  the  data 
shown  as  solid  squares  in  Figure  19.  In  the  case  of  uniaxial  tensile  and  com¬ 
pressive  loadings,  the  failures  did  not  involve  breaks  in  the  fibers.  This 
experimental  result  is  in  agreement  with  the  theoretical  prediction  of  the 
netting  analysis,  in  which  a  higher  load  is  required  (corresponding  to  150 
ksi  fiber  stress)  for  fiber  failures  to  occur.  In  the  case  of  torsion,  the 
failure  mechanism  involved  fiber  buckling  and  again  the  compressive 
strength  along  the  fiber  axis  was  not  reached. 

Helical -wound  tubes  under  tensile  loading  exhibited  a  linear  stress - 

strain  relationship  up  to  the  initial  yielding.  This  is  shown  in  Figure  20, 

where  both  the  axial  and  hoop  strains  of  a  3  inch  I.D.  tube  were  recorded. 

>[< 

The  effective  stiffnesses,  as  measured  by  and  were  in  excellent 

agreement  with  the  theoretical  predictions.  The  solid  lines  shown  in  this 
diagram  are  the  reciprocals  of  A^  and  A and  represent  the  results  ob¬ 
tained  from  the  computer  program  outlined  in  Appendix  A,  using  the  data 
of  Equations  (37)  and  (38).  A  1-1/2  inch  I.D.  helical -wound  tube,  with  a 
helical  angle  of  27  degrees,  was  also  tested.  The  axial  strain  readings 
indicated  a  considerable  amount  of  time -dependent  effect.  This  inelastic 
behavior  is  very  pronounced  after  initial  yielding  occurs.  The  stress- 
strain  relation  obtained  is  shown  in  Figure  21.  The  theoretically  pre¬ 
dicted  axial  stiffness  is  shown  as  a  solid  line  and  the  actual  strain  as  re¬ 
corded  by  a  hand-operated  strain  recorder,  is  shown  as  a  dotted  line. 

The  degree  of  inelasticity  depended  upon  the  time  required  to  make  the 
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Figure  20.  Uniaxial  Tension  Test  of  a  3  Inch  Diameter  Glass-Epoxy  Helical-Wound  Tube 


AXIAL  STRAIN  (percent) 
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strain  recording  at  each  load  level.  It  is,  of  course,  anticipated  that  the 
actual  strain  reading  will  be  different  as  the  rate  of  loading  and  the  time 
required  for  the  strain  recording  are  changed. 

The  stres s -strain  relationships  obtained  for  typical  compression 
tests  also  exhibited  a  degree  of  nonlinearity  very  similar  to  that  shown 
in  Figure  2  1 . 

In  torsion  tests,  inelastic  behavior  becomes  apparent  after  initial 
yielding,  as  shown  in  Figure  22.  The  initial  slope  agrees  very  well  with 
that  predicted  by  the  theory. 

In  Figure  23,  a  typical  pressure  versus  strain  relation  for  a  pres¬ 
sure  vessel  subjected  to  internal  pressure  is  shown.  Again,  the  theoreti¬ 
cally  predicted  slope,  represented  by  the  solid  line,  corresponds  closely 
to  the  experimental  observation.  The  ultimate  pressure  was  reached  when 
excessive  leaking  occurred.  This  pressure  corresponds  to  the  crossover 
strength  as  predicted  by  using  the  effective  transverse  and  shear  strengths. 
No  fiber  failure  was  induced  in  this  case.  This  can  be  explained  by  the  fact 
that  the  internal  agency  could  not  support  the  pressure  required  to  cause 
fiber  failure.  In  the  case  of  the  5  inch  I.D.  pressure  vessels  (data  shown 
as  solid  squares  in  Figure  19),  a  very  heavy  rubber  liner  was  installed 
inside  the  pressure  vessel.  This  liner  prevented  leakage  through  the  wall 
after  the  crossover  strength  was  exceeded  and  internal  pressure  could  be 
increased  to  induce  fiber  failures.  The  pressure  at  which  fiber  failure  oc¬ 
curred  agreed  with  that  predicted  by  the  simple  netting  analysis. 

In  conclusion,  helical -wound  tubes  tested  in  the  present  program 
had  various  patterns  of  filament  crossovers,  which  provided  post- yielding 
load -carrying  capability.  The  crossovers,  however,  did  not  have  sufficient 
strength  to  transfer  external  load  necessary  to  cause  fiber  failures.  The 
only  exceptions  to  this,  apparently,  were  the  5  inch  I.D.  pressure  vessels 
subjected  to  internal  pressurization.  The  implication  is  that  the  intrinsic 
strength  of  the  fibers  is  not  fully  developed  in  helical -wound  tubes  under 
a  general  loading  condition.  Thus,  higher  filament  strengths  may  not  be 
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STRAIN  (percent) 

Figure  23.  Internal  Pressure  Test  of  a  1-1/2  Inch  Diameter  Glass-Epoxy  Helical-Wound  Tube 


necessary  for  many  structural  applications,  particularly  those  involving 
tensile  and  compressive  loads  and  pure  torsion. 

Based  upon  available  experimental  data,  one  could  very  well  con¬ 
struct  curves  using  one-half  of  the  values  predicted  by  the  netting  analysis. 
A  simple  explanation  would  be  that  the  crossovers  induce  stress  concen¬ 
trations  of  a  factor  of  about  two,  and  that  the  experimental  data  in  the  case 
of  tension,  torsion,  and  internal  pressure  closely  follow  this  prediction. 
However,  this  curve- fitting  technique  is  not  reasonable  to  the  extent  that 
none  of  these  loadings  induce  fiber  failures  as  assumed  in  the  netting  analy¬ 
sis.  The  failure  mechanisms  are  associated  with  the  breakdown  of  the 
internal  agency  and  it  is  believed  that  the  theory  proposed  here  on  the  basis 
of  crossover  strength  is  more  directly  applicable. 


SECTION  3 


LONGITUDINAL  SHEAR  LOADING 


Introduction 

2  7 

As  discussed  in  detail  in  previous  investigations,  ’  and  utilized  in 
Section  2,  a  strength  analysis  of  composite  materials  requires  a  knowledge 
of  the  stiffness  properties  E^,  E^,  and  G  of  the  unidirectional  composite, 
as  well  as  its  strength  properties  X,  Y,  and  S.  In  previous  investigations,  ^ 
these  values  were  experimentally  determined. 

In  this  and  the  next  section,  methods  will  be  presented  for  analyt¬ 
ically  predicting  the  values  of  E^,  G,  Y,  and  S,  based  upon  the  constituent 
material  properties  of  the  unidirectional  composite,  as  well  as  geometrical 
considerations  such  as  filament  shape,  packing  arrangement,  and  volume 
percent. 

The  material  properties  G  and  S,  the  composite  shear  modulus, 
and  composite  shear  strength,  respectively,  can  be  evaluated  by  consider¬ 
ing  a  longitudinal  shear  loading,  as  will  be  discussed  in  this  section. 

The  material  properties  E^  and  Y,  composite  transverse  modulus 
and  composite  transverse  strength,  respectively,  are  obtained  from  a 
transverse  normal  loading,  as  discussed  in  Section  4. 

The  axial  properties  of  a  unidirectional  composite,  and  X,  and 

specific  problems  associated  with  their  analytical  prediction,  are  discussed 
in  Reference  8. 
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Description  of  Problem 


To  obtain  a  meaningful  solution  for  the  distribution  of  stres ses  within 
the  filaments  and  matrix  of  a  composite  material,  the  problem  must  be 
accurately  formulated.  That  is,  the  actual  physical  behavior  must  be  cor¬ 
rectly  represented  on  the  micromechanical  scale. 

Because  of  the  complex  stress  state  to  be  solved  for,  a  theory  of 
elasticity  approach  must  necessarily  be  utilized.  A  strength  of  materials 
solution  is  not  applicable  because  realistic  assumptions  as  to  strain  distribu¬ 
tions  cannot  be  formulated.  Since  it  can  be  assumed  that  no  variations  of 
stress  in  the  direction  of  the  unidirectional  filaments  occur  when  a  longitu¬ 
dinal  shear  loading  is  applied  to  the  composite,  the  problem  is  two- 
dimensional. 

To  treat  the  problem  analytically,  assumptions  must  be  made  as  to 
filament  packing  arrangement  and  geometry  of  the  individual  filaments. 

The  method  of  solution  to  be  used  is  based  upon  the  existence  of  certain 
symmetry  conditions.  A  rectangular  filament  packing  array  is  assumed, 
as  shown  in  Figure  24.  The  individual  filament  cross-sections  are  assumed 
to  be  symmetrical  about  each  of  the  coordinate  axes,  x  and  y.  Within  this 
restriction,  the  filaments  can  be  of  arbitrary  shape,  i.  e.  ,  circular, 
elliptical,  diamond,  square,  rectangular,  hexagonal,  etc. 

Having  established  the  assumptions  of  rectangular  packing  and 
symmetric  filaments,  the  problem  can  be  formulated  exactly  (within  the 
usual  assumptions  of  the  theory  of  linear  elasticity).  This  is  perhaps  the 
key  point  of  the  analysis  to  be  presented. 

Because  of  this  assumed  symmetry,  a  fundamental  or  repeating  unit, 
as  indicated  by  the  dashed  lines  of  Figure  24,  can  be  isolated  and  analyzed, 
being  typical  of  the  entire  composite.  When  the  composite  is  subjected  to 
longitudinal  shear  loads  applied  at  a  distance  from  the  element  being 
analyzed,  in  the  directions  indicated  by  the  average  values  r  zx  and  T ^ 
in  Figure  25,  a  complex  shear  stress  distribution  will  be  induced.  This  is 
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the  result  of  the  dissimilar  material  properties  of  the  filaments  and  matrix 
and  also  because  of  interactions  between  the  filament  being  analyzed  and 
adjacent  filaments. 


Figure  25.  First  Quadrant  of  the  Fundamental  Region  -  Longitudinal  Shear  Loading 


However,  because  of  symmetry,  each  average  longitudinal  shear 
stress  Tzx  and  T ,  when  applied  separately,  will  cause  a  uniform  axial 
displacement  of  the  boundary  of  the  fundamental  region  on  which  it  acts. 

Thus,  the  problem  can  be  formulated  as  a  displacement  boundary  value  prob¬ 
lem,  interactions  between  adjacent  filaments  being  automatically  and  accu¬ 
rately  taken  into  account. 


Method  of  Analysis 

The  problem  of  longitudinal  shear  loading  is  defined  by  a  displace¬ 
ment  field  of  the  form 


u  =  v  =  0  w  =  w  (x,  y) 


(54) 


For  such  a  system  the  only  nonvanishing  stress  components  are: 

n  d  w  T  _  n  dw 

zx  dx  zy  dy 

where  G  is  the  shear  modulus  of  the  material. 


(55) 
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The  equilibrium  equations  in  the  x  and  y  directions  are  identically 
satisfied,  equilibrium  in  the  z  direction  requiring  that 


Consider  an  infinite  elastic  body  containing  a  rectangular  array  of 
cylindrical  elastic  inclusions  oriented  parallel  to  the  z  axis  (see  Figure  24). 
Because  of  the  necessity  of  establishing  certain  symmetry  conditions  in  the 
solution,  the  individual  inclusions  must  have  two  axes  of  symmetry,  these 
axes  being  oriented  parallel  to  the  x  and  y  axes.  Within  this  restriction,  the 
inclusions  can  be  of  arbitrary  shape. 

It  will  be  assumed  that  the  inclusions,  which  have  a  shear  modulus 
G^,  are  perfectly  bonded  to  the  matrix,  which  has  a  shear  modulus  G^. 

The  spacings  of  the  inclusions  in  the  x  and  y  directions  are  taken  as 
2a  and  2b,  respectively.  The  dimensions  of  the  inclusions  are  arbitrary 
within  the  physical  limits  imposed  by  these  spacings. 

The  body  is  assumed  to  be  loaded  at  infinity  by  uniform  shear 

stresses,  f  and  T  ,  each  of  arbitrary  magnitude, 
zx  zy 

The  stresses  in  the  composite  medium  can  be  analyzed  by  isolating  a 

fundamental  region  in  the  x-y  plane  consisting  of  a  rectangular  element  of 

dimensions  2a  by  2b  (see  Figure  24)  containing  an  inclusion.  The  average 

shear  stresses  T  and  T  acting  on  the  sides  of  the  rectangle  will  be  chosen 
zx  zy 

as  the  arbitrary  loading  parameters. 

Because  of  the  assumed  double  periodicity  of  the  inclusion  geometry 
and  inclusion  spacing,  the  displacement  field  must  satisfy  the  requirement 

w  (x,  y)  =  -w  (-x,  -y)  (57) 
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It  normally  is  desired  to  solve  the  shear  problem  for  a  given  set  of 
shear  loading  conditions,  i.  e.  ,  specifying  “zx  and  f  ,  rather  than  for  given 
boundary  displacement  conditions.  However,  it  is  much  simpler  to  solve  the 
problem  when  expressed  in  terms  of  displacements  as,  for  example,  in 
Equations  (55)  and  (56).  Thus,  the  procedure  will  be  to  first  solve  the  prob- 
lem  for  a  specified  uniform  displacement,  w^,  along  the  side  x  =  a  of  the 
fundamental  region,  the  boundary  condition  on  the  other  three  straight  sides 
being,  from  symmetry  conditions: 


dw, 

G  - -  =  0  along  y  =  0  and  y  =  b 

o  y 


w 


1 


0  along  x  =  0 


(58) 


Having  solved  this  problem,  defined  as  Problem  1,  the  average  shear 

stress  T  '  corresponding  to  this  specified  displacement,  w,,  is  determined 
zx  o*  -L 

by  first  calculating  T  '  at  each  node  point  on  the  boundary  x  =  a  and  then 

zx 

taking  the  average  value. 


Assuming  that  it  was  desired  in  the  original  problem  to  solve  for  the 
case  of  a  specified  average  shear  loading  Tzx>  along  x  =  a,  the  values  of 
displacements  w^i,  j)  and  the  stresses  rzx(i»  j)  an^  TZy(ij  j)  eac^  node 
point  (i,  j)  in  the  array  corresponding  to  this  loading  are  obtained  by  multi¬ 
plying  the  results  above  by  the  ratio 


f.  =  (59) 

1  r  zx 

Thus,  a  solution  for  the  case  of  specified  average  shear  loading 

T  along  the  boundary  x  =  a  and  zero  shear  along  the  boundary  y  =  b  has 
zx 

been  obtained  (Problem  1). 
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This  same  procedure  is  then  repeated  to  obtain  a  solution  for  the 

case  of  a  specified  average  shear  loading  T  along  the  boundary  y  =  b  and 

zy 

zero  shear  along  the  boundary  x  =  a  (defined  as  Problem  2),  i.  e.  ,  specify 

>;< 

a  uniform  displacement,  w^,  along  the  boundary  y  =  b,  and  solve  the 
displacement  boundary  problem  using  the  boundary  conditions: 


-  0  along  x  =  0  and  x  .= 


0  along  y  = 


After  calculating  an  average  shear  stress  T  along  y  =  b,  all  stress  and 

zy 

displacement  values  calculated  above  are  multiplied  by  the  ratio 


to  obtain  the  solution  for  the  case  of  a  specified  average  shear  loading 
T  along  the  boundary  y  =  b  and  zero  shear  along  the  boundary  x  =  a 
(Problem  2). 

In  solving  the  two  individual  problems  outlined,  it  is  necessary  to 
establish  continuity  conditions  at  the  interface  between  the  inclusion  and 
the  matrix.  These  conditions,  which  are  identical  in  both  problems,  are: 


(1)  continuity  of  displacement  across  the  interface 


(2)  continuity  of  shear  stress  across  the  interface 


where  n  is  in  a  direction  normal  to  the  interface  boundary  and  the  subscripts 
f  and  m  represent  filament  and  matrix,  respectively. 

The  effective  shear  moduli  of  the  composite  material  are  determined 
as  follows: 

x  -  direction 


G 

x 


T 

zx 


Wj  (a,  o) / a 


a  T 

_ zx 

w”  (a,  o) 


(64) 


y  -  direction 


G 

y 


T 

zy 

w2  (o,  b)7b 


b  T 

zy 

w2  (o,  bj 


(65) 


Having  obtained  a  solution  for  each  of  the  two  problems  outlined,  i.  e.  , 

T  specified,  T  =0  and  r  specified,  r  =0,  the  solution  of  the  general 
zx  ^  zy  zy  zx 

problem  of  combined  shear  loading  is  obtained  by  superposition. 

Solution  Technique 

A  relaxation  method  of  solution  of  the  two  problems  outlined  in  the 
previous  paragraph  has  been  formulated  using  a  finite  difference 
representation.  The  method  of  solution  is  presented  in  Appendix  B,  along 
with  a  complete  description  of  the  digital  computer  program  developed,  a 
computer  program  listing,  and  a  sample  problem.  The  program  is  written 
in  Fortran  IV  programming  language  for  the  Philco  2000  digital  computer. 

The  program  can,  of  course,  be  readily  converted  for  use  on  other 
computer  systems. 


Several  unique  numerical  analysis  techniques  and  computer  pro¬ 
gramming  methods  were  developed  during  the  course  of  this  investigation. 
These  are  discussed  in  Appendix  B. 
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Presentation  of  Results 


The  primary  goal  of  the  present  investigation  has  been  to  develop  a 
method  of  determining  the  distribution  of  stresses  in  a  composite  and  the 
composite  stiffness,  rather  than  to  make  extensive  parametric  studies. 
However,  typical  results  obtained  for  several  filament  geometries  and  pack¬ 
ing  densities  are  shown  in  Figure  26.  The  computer  solution  calculates 
stresses  and  displacements  throughout  the  region,  as  indicated  in  the  sample 
problem  of  Appendix  B.  In  Figure  26,  only  the  effective  composite  shear 
modulus,  G,  and  the  stress  concentration  factor,  SCF,  i.  e.  ,  the  ratio  of 
the  maximum  induced  shear  stress  to  the  applied  stress,  are  shown.  A 
glass-epoxy  system  was  assumed,  using  G.  =  4.  0  x  10^  psi  and 

G  =  0.  2  x  10  psi. 
m  r 

The  results  given  for  square  fibers  in  a  diamond  packing  were 
obtained  by  a  transformation  of  the  coordinate  axes  through  an  angle  of 
45  degrees  from  the  case  of  square  fibers  in  a  square  array.  It  is  inter¬ 
esting  that  the  diamond  packing,  for  Vf  =70  percent,  yields  the  highest 
composite  shear  modulus  (1.  92  x  10^  psi)  without  inducing  a  high  stress 
concentration  (SCF  =  2.  46). 

In  Figure  27  are  shown  typical  results  obtained  for  circular  fibers 
and  various  composite  systems.  The  reinforcing  factor,  G/G^,  e*  > 
the  ratio  of  the  composite  shear  modulus  to  the  shear  modulus  of  the, 
matrix,  is  plotted  against  the  ratio  of  the  shear  moduli  of  the  constituents, 
G^/G^,  with  percent  fiber  volume  as  a  parameter.  A  few  typical 
combinations  of  constituent  materials  are  indicated.  As  can  be  seen,  the 
composite  shear  modulus  increases  significantly  as  the  filament  packing 
density  is  increased. 
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Figure  27.  Composite  Shear  Modulus  for  Circular  Fibers  in  a  Square  Packing  Array 


Based  upon  available  experimental  data,  the  theoretical  predictions 
presented  in  Figure  27  are  reasonably  accurate.  For  example,  for  a 
fiber  volume  of  70  percent,  and  an  epoxy  shear  modulus  of  0.  2  x  10  psi, 
the  following  values  are  obtained: 

Composite  Shear  Modulus 
Predicted  Experimental 

Glass-epoxy  composite  1.  1  x  10^  psi  1.  2  x  10^  psi 

Boron-epoxy  composite  1.  4  x  10^  psi  1.  5  x  10  psi 

To  show  the  specific  influence  of  the  matrix  material  on  the  com¬ 
posite  shear  modulus,  another  plot  is  shown  in  Figure  28,  in  which  a 
particular  fiber  shear  stiffness  is  assumed  and  held  constant 
(G^  =  24  x  10^  psi  was  used,  which  is  typical,  for  example,  of  boron 
filaments).  Composite  shear  modulus,  G,  is  plotted  against  matrix  shear 
modulus,  G  ,  with  percent  fiber  volume  as  a  parameter.  Various  potential 
matrix  materials  are  indicated  on  the  abscissa.  The  range  of  attainable 
composite  shear  moduli  for  each  matrix  material  is  clearly  shown. 

The  significance  of  these  results  to  materials  design  is  discussed 
in  greater  detail  in  Section  5  of  this  report. 
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Figure  28.  Composite  Shear  Modulus  for  Boron  Fibers  as  a 

Function  of  Matrix  Shear  Modulus  and  Fiber  Volume 


SECTION  4 


TRANSVERSE  NORMAL  LOADING 

Introduction 

The  need  for  detailed  investigations  of  the  stresses  developed  in 
individual  fibers  and  the  surrounding  matrix  of  a  unidirectional  composite 
material  was  discussed  in  the  first  two  paragraphs  of  Section  3,  longitudinal 
shear  loading  being  considered. 

A  transverse  normal  loading  will  be  analyzed  in  this  section.  The 
basic  principles  of  the  formulation  of  the  problem  are  essentially  the  same 
as  for  a  longitudinal  shear  loading  condition.  However,  the  details  of  the 
formulation  and  the  numerical  solution  required  are  considerably  more 
complex.  This  is  primarily  because  of  the  fact  that  two  dependent  displace¬ 
ment  variables,  u  and  v,  occur,  whereas  for  longitudinal  shear  loading, 
only  a  single  dependent  variable,  axial  displacement  w,  exists. 

The  basic  formulation  of  the  problem  follows  that  developed  by 

Aeronutronic  consultant,  Dr.  H.  B.  Wilson,  Jr.  ,  for  the  case  of  a  doubly 

9 

periodic  array  of  rigid  inclusions  in  an  elastic  matrix. 

As  in  Section  3,  to  treat  the  problem  analytically,  assumptions  must 
be  made  as  to  filament  packing  arrangement  and  the  geometry  of  the  indivi¬ 
dual  filaments.  Because  the  method  of  solution  to  be  used  is  based  upon 
the  existence  of  certain  symmetry  conditions,  a  rectangular  filament  packing 
array  has  been  assumed,  as  shown  in  Figure  29.  The  individual  filament 
cross  sections  are  assumed  to  be  symmetrical  about  each  of  the  coordinate 
axes,  x  and  y.  Within  this  restriction,  the  filaments  can  be  of  arbitrary 
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shape,  i.  e.  ,  circular,  elliptical,  diamond,  square,  rectangular, 
hexagonal,  etc. 


Having  established  the  assumptions  of  rectangular  packing  and 
symmetric  filaments,  the  problem  can  be  formulated  exactly  (within  the 
usual  assumptions  of  the  theory  of  linear  plane  elasticity).  As  in  the 
longitudinal  shear  problem,  this  is  perhaps  the  key  point  of  the  method  of 
analysis. 

The  concepts  of  two-dimensional  plane  elasticity  can  be  applied  to 
the  problem  of  transverse  loading,  since  no  variations  of  stress  will  occur 
in  the  direction  of  the  unidirectional  filaments.  Either  a  condition  of  plane 
stress  or  plane  strain  can  be  assumed. 

Because  of  the  assumed  symmetry,  a  fundamental  or  repeating  unit, 
as  indicated  by  the  dashed  lines  of  Figure  29,  can  be  isolated  and  analyzed, 
being  typical  of  the  entire  composite.  When  the  composite  is  subjected  to 
transverse  normal  loads  applied  at  a  distance  from  the  element  being 
analyzed,  as  indicated  by  cr^  and  CT  in  Figure  29,  a  complex  state  of  stress 
is  induced  in  the  composite.  This  is  the  result  of  the  dissimilar  material 
properties  of  the  filaments  and  matrix  and  also  because  of  interactions 
between  the  filament  being  analyzed  and  adjacent  filaments.  The  stress  dis¬ 
tribution  along  the  sides  of  the  fundamental  region  will  not  be  uniform, 
although  the  average  of  the  normal  stresses  along  the  sides  must  equal  the 

average  applied  stresses,  (j  and  cr  ,  from  equilibrium  considerations. 

x  y 

However,  because  of  symmetry,  the  originally  rectangular  funda¬ 
mental  region  remains  a  rectangle  when  transverse  normal  loads  are 
applied,  i.  e. ,  the  normal  component  of  displacement  of  each  point  on  a 
boundary  of  the  fundamental  region  is  identical.  Thus,  the  problem  can  be 
formulated  in  terms  of  displacements,  interactions  between  adjacent  fila¬ 
ments,  which  induce  the  nonuniform  stresses  at  the  boundaries  of  the  funda¬ 
mental  region,  being  automatically  and  correctly  taken  into  account. 
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Method  of  Analysis 


The  composite  material  is  assumed  to  consist  of  a  rectangular  array 
of  unidirectionally  oriented  elastic  inclusions,  e.  g.  ,  reinforcing  filaments, 
in  an  infinite  elastic  matrix,  as  shown  in  Figure  29.  The  inclusions  are 
assumed  to  be  perfectly  bonded  to  the  matrix  and  spaced  a  distance  of  2a 
apart  in  the  x  direction  and  2b  apart  in  the  y  direction.  By  assuming  a 
regular  packing  arrangement,  a  fundamental  or  repeating  unit  can  be 
isolated,  as  indicated  by  the  dashed  lines  in  Figure  29.  Because  of  the 
necessity  of  establishing  certain  symmetry  conditions  in  the  solution,  the 
inclusions  will  be  assumed  to  have  two  axes  of  symmetry,  these  axes  being 
oriented  parallel  to  the  x  and  y  axes  of  the  fundamental  unit.  Within  this 
restriction,  the  inclusions  can  be  of  arbitary  shape. 

The  body  is  assumed  to  be  loaded  at  infinity  by  uniform  normal 

stresses  a  and  a  in  the  x  and  y  coordinate  directions,  respectively, 
x  y 

as  shown  in  Figure  29.  These  stresses  may  each  be  of  arbitrary  magni¬ 
tude  in  tension  or  compression.  The  influence  of  thermal  stresses  induced 
by  a  uniform  temperature  change  T  in  the  composite  material,  e.  g.  , 
residual  stresses  induced  during  cooling  from  the  composite  curing  tem¬ 
perature,  has  also  been  included. 

Because  of  the  double  periodicity  of  the  inclusion  geometry  and 
inclusion  spacing,  only  one  quandrant  of  the  fundamental  region  need  be 
considered,  as  indicated  in  Figure  30. 

The  problem  can  be  treated  as  one  of  plane  elasticity,  either  a  con¬ 
dition  of  plane  stress  or  plane  strain  being  assumed,  as  appropriate. 

It  is  normally  desired  to  solve  the  problem  for  a  specified  loading 
configuration,  i.  e. ,  for  given  values  of  C7x  andcr^.,  rather  than  for  specified 
boundary  displacements.  However,  it  is  simpler  to  formulate  the  problem 
in  terms  of  displacements  and  subsequently  evaluate  stresses. 
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Figure  30.  First  Quadrant  of  the  Fundamental  Region 


In  terms  of  displacements  u  and  v  in  the  x  and  y  cordinate 
directions,  respectively,  the  equilibrium  equations  to  be  satisfied  are: 


x  -  direction 
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y  -  direction 
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where 
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plane  stress 
plane  strain 


Shear  Modulus 
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Modulus  of  Elasticity 
Poisson's  ratio 


The  stress -displacement  equations  are  of  the  form: 
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Because  of  the  assumed  symmetry  about  each  of  the  coordinate  axes, 
the  original  rectangular  unit  of  Figure  30  will  remain  rectangular  when 
subjected  to  transverse  loads,  i.  e,  ,  no  shear  stresses  exist  along  the 
rectangular  boundaries  of  the  element.  This  shear  stress  condition,  along 
with  the  specification  of  a  uniform  normal  displacement  of  each  side  of  the 
rectangular  unit,  is  adequate  to  define  the  required  boundary  conditions. 

In  addition  to  the  prescribed  boundary  conditions,  stress  and  dis¬ 
placement  continuity  conditions  must  be  satisfied  at  the  inclusion -matrix 
interface.  Defining  n  as  the  direction  normal  to  the  interface  at  any  point 
and  0  as  the  direction  of  the  normal  as  measured  from  the  positive  x-axis 
(see  Figure  30),  the  continuity  conditions  are: 


(69) 


Tn  Qr  Tn0 
f  m 

where  the  subscripts  f  and  m  represent  filament  and  matrix,  respectively, 

a  the  normal  stress  at  the  interface,  and  T  Q  the  shear  stress  tangent  to  the 
n 

interface. 

Although  displacement  boundary  conditions  are  utilized  in  the  solution, 
it  is  normally  desired  to  specify  average  normal  stresses  to  be  acting  in  a 


practical  application.  Thus,  the  problem  must  be  solved  in  three  steps  and 
these  steps  suitably  combined  to  provide  the  desired  solution.  The  first 
step  consists  of  assuming  T  =  0,  i.  e.  ,  zero  temperature  change,  and  solving 
the  boundary  value  problem  defined  by  the  following  boundary  conditions  (see 
Figure  30): 

T  =  0  along  all  four  rectangular  boundaries 

u  =  0  along  x  =  0  (points  remain  on  the  coordinate  axis 

because  of  symmetry) 

/ 

u  =  1  along  x  =  a  (arbitrarily  specified  unit  displacement)  (70) 

v  =  0  along  y  =  0  (points  remain  on  the  coordinate  axis 

because  of  symmetry) 

v  =  0  along  y  =  b  (specified  displacement  condition) 

These  conditions,  along  with  the  interface  continuity  equations  (Equation  69), 
are  sufficient  to  define  the  problem*  A  finite  difference  numerical  relaxation 
technique  has  been  developed  to  solve  this  problem  and  is  presented  in  detail 
in  Appendix  C. 

The  second  step  in  the  complete  solution  is  to  solve  another  boundary 
value  problem  identical  with  the  first  except  specifying 


u  =  0  along  x  =  a 

v  =  1  along  y  =  b 


(71) 


Again,  a  solution  is  obtained,  using  the  relaxation  technique  developed. 


The  third  step  consists  of  imposing  the  desired  temperature  change  T, 
specifying  all  the  boundary  displacements  of  Equation  (7  0)  to  be  zero,  and 
obtaining  a  relaxation  solution. 
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These  three  separate  solutions  are  then  suitably  combined  to  obtain  a 
complete  solution  for  the  desired  combination  of  imposed  transverse  loads 
and  temperature  change.  The  method  of  combining  solutions  is  shown 
schematically  in  Figure  31. 

In  the  process  of  combining  solutions,  the  effective  elastic  modulus 
and  effective  coefficient  of  thermal  expansion  of  the  composite  material,  in 
each  of  the  two  coordinate  directions,  are  also  calculated.  These  steps  are 
also  indicated  in  Figure  31. 

The  complete  solution  for  a  specified  filament  geometry,  filament 
packing  arrangement,  temperature  change,  anddoading  condition  thus 
provides  the  following  information: 

(1)  Both  u  and  v  displacements  at  all  node  points  throughout  the 
matrix  and  filament,  including  those  on  the  interface. 

(2)  All  normal  and  shear  stress  components  in  the  coordinate 
directions  at  each  node  point. 

(3)  The  magnitudes  and  directions  of  the  principal  stresses  at  each 
node  point. 

(4)  An  evaluation  of  the  von  Mises  yield  criteria  at  each  node  point. 

(5)  The  effective  elastic  modulus  of  the  composite  in  each  coordinate 
direction. 

(6)  The  effective  coefficient  of  thermal  expansion  of  the  composite  in 
each  coordinate  direction. 

The  details  of  the  numerical  solution  established,  using  a  finite 
difference  relaxation  technique,  are  given  in  Appendix  C  along  with  a  complete 
description  of  the  digital  computer  program  developed. 

Discussion  of  Results 

A  typical  problem  solution  is  presented  in  Appendix  C,  showing  the 
form  in  which  results  are  obtained.  As  can  be  seen,  a  complete  stress  dis¬ 
tribution  is  available,  as  well  as  the  evaluation  of  a  yield  criterion.  Since 
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the  primary  purpose  of  the  present  investigation  has  been  to  develop  a 
method  of  solution  rather  than  to  make  detailed  parametric  studies,  only  a 
selected  number  of  composite  configurations  have  been  numerically  evaluated 
to  date.  Now  that  a  solution  is  available,  it  will  be  possible  to  make  detailed 
parametric  studies  of  material  behavior. 

Two  plots  of  typical  behavior  are  presented,  however,  to  show  the 
utility  of  the  method  of  solution.  Figure  32  is  a  plot  of  the  transverse  rein¬ 
forcement  obtained  as  a  function  of  the  stiffness  ratio  (Er/E  )  of  the  con- 

f  m 

stituent  materials  for  various  filament  volume  ratios  (V^).  Circular 
filaments  in  a  square  array  have  been  assumed.  Stiffness  ratios  for  three 
typical  composite  systems  are  specifically  indicated.  As  can  be  seen,  the 


ment  volume  percent  increases.  As  the  composite  filament  packing  becomes 
more  dense,  i.  e.  ,  as  the  filaments  are  moved  closer  together,  interactions 
between  adjacent  filaments  become  important,  the  present  analysis  taking 
these  interactions  into  account.  The  contribution  of  filament  stiffness  (E^) 
can  be  seen  by  comparing  reinforcing  factors  at  various  filament  volume 
percents  for  the  two  familiar  epoxy  composite  systems  indicated,  i.  e.  , 
glass -epoxy  and  boron- epoxy.  Particularly  for  the  higher  filament  packing 
densities,  use  of  the  higher  modulus  boron  results  in  a  considerably  higher 
composite  transverse  modulus. 

To  show  the  contribution  of  the  matrix  stiffness,  E^,  to  composite 
transverse  stiffness,  E^,  more  directly,  another  plot  is  given  in  Figure  33. 
Again  circular  filaments  in  a  square  array  have  been  used  and  a  filament 
modulus  of  60  x  10^  psi  (typical,  for  example,  of  boron)  has  been 
assumed.  As  expected,  the  composite  transverse  stiffness,  E^,  increases 
as  either  the  matrix  stiffness, E^,  or  the  fiber  volume,  Vp  is  increased. 

A  detailed  study  of  the  influence  of  filament  geometry  and  non¬ 
square  packing  arrangements,  an  interpretation  of  the  yield  criterion  as 
it  relates  local  stress  states  to  the  composite  strength,  and  the  establish¬ 
ment  of  optimum  configurations  for  specific  applications  will  all  be  fruit¬ 
ful  areas  of  additional  investigation,  using  the  analysis  developed. 
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Figure  32.  Composite  Transverse  Stiffness  for  Circular  Fibers  in  a  Square  Array 


SECTION  5 


CONCLUSIONS 


In  this  report,  a  theoretical  basis  for  the  determination  of  the 
deformation  and  load -carrying  capacity  of  laminated  and  helical -wound 
composites  subjected  to  complex  loadings  has  been  outlined.  With  the  aid 
of  the  strength  analysis  program  outlined  in  Appendix  A,  parametric  studies 
of  the  contribution  of  the  intrinsic  properties  to  the  structural  behavior  of 
filamentary  structures  can  be  conducted.  The  relative  importance  of  each 
of  the  mechanical  properties,  such  as  elastic  moduli  and  principal  strengths 
can  be  quantitatively  determined.  This  information  can  be  used  in  the  selec 
tion  and  design  of  composite  materials  for  the  purpose  of  achieving  an  opti¬ 
mum  design  for  a  given  structural  application. 

Based  on  information  available  thus  far,  it  appears  that  the  elastic 
deformation  of  both  unidirectional  and  laminated  composites  can  be  predic¬ 
ted  with  reasonable  accuracy,  i.e.  ,  within  20  percent.  In  the  case  of  load¬ 
carrying  capacity,  both  cross -ply  and  angle -ply  composites,  subjected  to 
uniaxial  or  multiaxial  loading,  are  also  predictable  within  the  same  level  of 
accuracy  as  that  of  the  elastic  deformation.  The  ultimate  load-carrying 
capacity  of  helical -wound  tubes  requires  further  investigation.  In  this 
report,  an  attempt  has  been  made  to  assess  the  effect  of  filament  cross¬ 
overs  on  the  load -carrying  capacity  of  helical -wound  tubes.  A  strength 
criterion  based  on  the  ability  of  the  crossovers  to  transfer  the  externally 
applied  load  to  a  load  parallel  to  the  fibers  provides  a  reasonable  prediction 
of  the  load-carrying  capacity.  This  is  achieved  by  assuming  some  increase 
in  the  effective  transverse  and  shear  strengths  and  a  reduction  in  the  axial 


strength.  These  adjustments  to  the  principal  strengths  are  taken  to  be  inde¬ 
pendent  of  the  helical -angle  and  other  lamination  parameters. 

Insofar  as  guidelines  for  materials  design  are  concerned,  several 
specific  points  will  be  outlined  in  this  section.  The  implications  of  the 
present  discussion  may  have  an  influence  on  the  thinking  associated  with 
determining  desired  properties  of  the  constituent  materials,  as  well  as 
establishing  geometric  shapes  and  arrangements  leading  to  optimum  compos¬ 
ite  materials  design. 


Stiffness  Ratios 

The  ratio  of  the  stiffnesses  of  the  fiber  and  matrix  constituents, 

Ef/E  ,  has  a  direct  bearing  on  the  composite  material  behavior.  The 
numerical  value  of  this  ratio  is  approximately  20  for  glass -epoxy  and  1Z0  for 
boron-epoxy.  In  the  case  of  a  uniaxial  loading  along  the  fibers  of  a  unidirec¬ 
tional  composite,  this  stiffness  ratio  signifies  the  relative  stress  ratios  be¬ 
tween  the  fibers  and  the  matrix.  A  higher  ratio  implies  that  a  higher  pro¬ 
portion  of  the  externally  applied  load  is  being  carried  by  the  fibers.  Based 
on  the  rule -of -mixtures  relation,  a  linear  relationship  between  the  stiffnes¬ 
ses  of  the  constituent  materials  and  the  axial  stiffness  exists.  The 

stiffness  ratio  of  the  constituents,  however,  does  not  make  a  linear  contri¬ 
bution  to  the  transverse  stiffness  and  shear  modulus  G,  as  in  the  case 

of  axial  stiffness.  In  the  numerical  results  presented  in  Sections  3  and  4, 
the  contribution  of  the  stiffness  ratio  to  the  composite  elastic  moduli  levels 
off  after  a  certain  value.  As  the  stiffness  ratio  exceeds  a  value  of  approx¬ 
imately  100,  a  further  increase  does  not  significantly  affect  the  composite 
elastic  moduli.  In  fact,  the  composite  moduli  will  remain  finite  even  when 
the  stiffness  ratio  approaches  infinity,  which  represents  the  case  of  rigid 
fibers . 


Since  the  elastic  moduli  of  a  unidirectional  composite  involve  four 
independent  parameters,  the  stiffnesses  of  unidirectional  and  laminated 
composites  can  be  controlled  by  varying  one  or  all  of  these  moduli.  Which 
particular  modulus  parameter  will  produce  the  greatest  change  can  be 
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determined  using  the  information  contained  in  this  report.  For  example, 
an  increase  in  the  fiber  stiffness,  say  in  changing  from  glass  to  boron,  will 
have  the  greatest  effect  on  E ,  , .  In  this  particular  example,  the  axial  stiff- 
ness  increases  from  8  x  10  to  40  x  10  psi.  The  boron  filaments,  however, 
do  not  induce  a  significant  increase  in  the  transverse  stiffness  or  shear 
modulus.  The  increases  in  these  moduli  are  nominal,  e.g.  ,  increases 

from  2. 6  x  10^  to  4.  0  x  10^  psi  and  G  increases  from  1. 2  x  10^  to 
1.  6  x  10^*  psi.  Thus,  the  increase  caused  by  the  substitution  of  boron  for 
glass  filaments  is  significant  only  in  the  case  of  E  . 

However,  a  higher  matrix  stiffness  will  induce  a  much  greater 
increase.  For  example,  as  shown  in  Figures  28  and  33,  a  boron-nickel 
composite  may  have  a  shear  modulus  of  16  x  10  psi  and  a  transverse  stiff¬ 
ness  of  40  x  106  even  at  a  comparatively  low  fiber  volume  of  40  percent. 

This  is  significantly  higher  than  for  the  boron-epoxy  system. 

In  conclusion,  the  ratio  of  the  stiffnesses  of  the  constituent  mate¬ 
rials  will  have  differing  influences  on  the  gross  elastic  moduli.  There  is 
no  "rule  -of -thumb"  that  can  be  established  at  this  time  to  determine  the 
most  effective  way  of  achieving  higher  stiffness  in  a  laminated  composite. 
This  has  to  be  determined  for  each  individual  case,  and  other  considera¬ 
tions  such  as  strength,  fiber  volume  and  fiber  cross-sectional  shape  must 
all  be  taken  into  account. 

The  effect  of  the  stiffness  ratio  Ef/Em  on  the  principal  strength 
will  now  be  investigated.  The  axial  strength  of  a  unidirectional  composite 
is  dictated  by  the  fiber  strength,  which  can  be  expressed  in  terms  of  the 
average  and  the  standard  deviation  of  the  fiber  strength,  <7  and  s,  respec¬ 
tively,  the  fiber  volume  vf,  and  a  factor  8,  which  is  a  measure  of  the 

1  8 

matrix  effectiveness  in  "shear  transfer."  The  relation  is: 

X  =  JSv£CTb 


(72) 


where  a  is  defined  as  the  bundle  strength  and  can  be  computed  from  (J  and 
B 

s.  The  stiffness  ratio  Ef/Em  has  no  effect  on  the  fiber  volume  and  the 
bundle  strength.  The  matrix  effectiveness  /?  measures  the  gross  effect  of 
the  interface  strength  and  the  stress  concentration  around  a  broken  fiber. 
The  stiffness  ratio  will  have  a  definite  effect  on  the  stress  concentration  and 
a  possible  effect  on  the  interface  strength.  As  shown  in  Reference  8,  B  can 
vary  between  1  and  2  for  the  case  of  perfect  interfacial  bond.  If  the  bond 
strength  is  zero,  jS  will  remain  equal  to  1  regardless  of  the  stiffness  ratio. 
Thus,  qualitatively,  B  approaches  1  as  the  stiffness  ratio  approaches 
infinity. 

The  effect  of  Ef/Em  on  the  transverse  and  shear  strengths,  Y  and 
S,  may  be  correlated  with  the  stress  concentration  around  fibers.  The 
higher  the  stiffness  ratio,  the  higher  the  stress  concentration  factor.  From 
this  viewpoint,  a  lower  stiffness  ratio  may  yield  higher  values  of  Y  and  S. 

Fiber  Volume 

Composites  can  be  classified  into  two  broad  categories  with  respect 
to  fiber  volume  v^. 

(1)  Dense  Composites.  Composites  containing  a  fiber 
volume  of  50  percent  or  higher  will  be  classified  as 
dense  composites.  Significant  interactions  among  the 
fibers  are  present.  Most  glass -epoxy  and  boron-epoxy 
composites  now  in  use  are  in  this  category. 

(2)  Dilute  Composites.  Composite  containing  a  fiber  volume 

of  less  than  50  percent  will  be  classified  as  dilute  compos¬ 
ites.  The  mechanical  interaction  among  the  fibers  is  rela¬ 
tively  small.  The  behavior  of  a  dilute  composite  on  the 
microscopic  scale  may  be  represented  by  the  solution  of 
the  problem  of  a  single  inclusion  in  an  infinite  matrix 
domain.  This  type  of  composite  is  normally  associated 
with  those  utilizing  metal  matrices. 
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It  is  commonly  believed  that  a  higher  loading  of  the  fibers,  that  is,  a  higher 
fiber  volume,  will  necessarily  lead  to  higher  performance  of  the  composite. 
Based  on  the  present  work,  this  11  rule -of -thumb11  is  by  no  means  conclusive. 
Again,  one  should  analyze  the  influence  of  the  fiber  volume  on  the  various 
mechanical  properties  on  the  macroscopic  scale.  These  properties  include 
the  gross  elastic  moduli  and  the  principal  strengths. 

Insofar  as  the  axial  stiffness  En  is  concerned,  a  higher  fiber  volume 
will  give  a  higher  composite  axial  stiffness.  The  axial  stiffness  is  linearly 
proportional  to  the  fiber  volume.  As  far  as  the  transverse  stiffness  and 
shear  modulus  are  concerned,  a  higher  fiber  volume  will  increase  these 
gross  elastic  moduli  but  the  amount  of  increase  is  not  linear.  The  quanti¬ 
tative  relations  between  fiber  volume  and  E^  or  G  can  be  seen  in  the  dia¬ 
grams  of  Sections  3  and  4. 

Both  the  fiber  volume  and  the  stiffness  ratio  discussed  previously 
have  a  strong  influence  in  the  determination  of  the  final  gross  effective 
moduli.  It  is  therefore  necessary  to  examine  both  the  fiber  volume  and 
the  stiffness  ratio  simultaneously.  This  again  can  be  achieved  by  using  the 
diagrams  in  Sections  3  and  4.  In  the  case  of  axial  stiffness,  a  simple 
linear  relationship  is  adequate  and  the  contribution  of  each  constituent 
material  and  the  fiber  volume  can  be  determined  directly  from  the  rule -of - 
mixtures  equation. 

The  influence  of  fiber  volume  on  the  axial  strength  is  not  very  well 
understood.  The  role  of  the  matrix  as  a  mechanism  to  isolate  fiber  breaks 
is  not  defined  other  than  by  the  use  of  an  experimentally  determined 
factor  8 .  It  may  well  be  true  that  a  dilute  composite  provides  a  more 
effective  means  of  isolating  fiber  breaks  than  a  dense  composite.  This 
will  presumably  give  a  higher  value  of  8  and,  therefore,  a  higher  axial 
strength  than  anticipated.  The  problem  becomes  one  of  a  trade-off  between 
the  amount  of  matrix  required  to  effectively  isolate  fiber  breaks  and  utili¬ 
zing  the  properties  of  the  fibers  in  a  given  composite.  Insofar  as  transverse 
shear  strength  is  concerned,  dilute  composites  are  also  more  favorable 
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than  dense  composites  because  the  interaction  among  the  fibers  is  reduced. 

A  more  favorable  stress  distribution  results  in  the  case  of  a  dilute  compos¬ 
ite.  This  may  provide  higher  transverse  and  shear  strengths  than  a  dense 
composite  with  equal  constituent  material  properties. 

Fiber  Cross  Section 

Noncircular  fibers  have  been  investigated  in  this  report.  However, 
further  studies  will  be  necessary  before  definite  conclusions  can  be  made. 

In  this  report,  methods  of  analyses  have  been  outlined  and  digital  computer 
programs  presented  for  the  determination  of  the  composite  elastic  moduli  and 
stress  distributions  around  noncircular  fibers.  A  detailed  study  can  be 
carried  out  in  the  future  for  the  evaluation  of  the  relative  merits  of  various 
fiber  shapes. 

In  Figure  26,  the  effective  shear  modulus  for  various  fiber  cross 
sections  for  unidirectional  glass -epoxy  composites  are  shown.  The  moduli 
for  circular  inclusions  with  fiber  volumes  of  7  0  and  40  percent  are 
1.09  x  106  and  0.45  x  10^  psi,  respectively.  When  the  fiber  cross  section 
is  changed  to  a  2:1  ellipse,  the  shear  moduli  for  the  dense  composite 

/  L 

(v£  =  70)  are  1.24  x  10  and  0.87  x  10  psi  along  the  major  and  minor 
axes,  respectively.  The  effective  modulus  of  an  elliptical  inclusion  is 
greater  along  the  major  axis  and  less  along  the  minor  axis  than  for  a  cir¬ 
cular  inclusion.  As  a  comparison,  the  product  of  the  two  shear  moduli  is 
approximately  equal  to  the  square  of  the  shear  modulus  of  a  composite 
containing  circular  inclusions.  In  this  sense,  the  increase  along  the  major 
axis  is  offset  proportionally  by  a  decrease  along  the  minor  axis.  The  same 
relationship  holds  for  the  case  of  a  dilute  composite  (v£  =  40). 

Of  the  shapes  studied,  the  circular  fiber  has  the  lowest  stress  con¬ 
centration  factor  for  a  given  fiber  volume.  If  the  stress  concentration 
factor  can  be  related  to  the  shear  strength  of  the  composite,  the  circular 
fiber  should  give  a  higher  shear  strength  than  the  other  shapes  studied 
under  this  program.  The  behavior  of  noncircular  fibers  under  the  action 
of  transverse  loading  will  presumably  follow  closely  the  previous 
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conclusions.  Both  the  elastic  moduli  and  the  stress  concentration  factor 
will  vary  as  the  fiber  shape  changes.  Quantitative  information,  however,  is 
not  final  at  this  stage. 

The  cross-sectional  shape  of  the  fibers  will  influence  the  axial  stiff¬ 
ness  and  strength  since  the  fiber  volume  and  the  contribution  of  the  matrix 
will  vary.  No  mathematical  study  has  yet  been  made  on  the  effect  of  the 
binding  matrix  as  a  vehicle  to  isolate  fiber  failures.  However,  as  the  fiber 
shape  deviates  from  a  circle,  the  ability  of  the  matrix  to  heal  fiber  breaks 
may  decrease  because  of  the  stress  concentration  induced,  e.g.  ,  at  the 
sharp  corners  of  rectangular  fibers  or  at  the  small  radius  of  curvature  at 
the  end  of  the  major  axis  in  the  case  of  elliptical  fibers.  The  £ -factor  in 
Equation  (72)  will  tend  to  approach  unity,  which  is  the  lower  bound  of  the 
axial  strength. 

Filament  Crossovers 

Filament  crossovers  have  been  treated  as  an  internal  agency  contri¬ 
buting  to  the  post -yielding,  load-carrying  capability  of  helical -wound  tubes. 
The  influence  of  crossovers  has  been  quantitatively  shown  by  increases  in 
the  effective  transverse  and  shear  strengths,  and  a  decrease  in  the  axial 
strength.  Thus,  crossovers  perform  two  functions:  (1)  they  lock  the  lami¬ 
nated  composite  together  as  an  integral  unit,  thereby  providing  additional 
load-carrying  capacity  beyond  initial  yielding,  and  (2)  they  induce  stress 
concentrations,  possibly  because  of  the  abrasive  action  among  filaments. 

The  net  effect  of  the  crossovers  is  to  provide  a  strength  level  to  helical- 
wound  tubes  that  usually  falls  between  that  corresponding  to  initial  yielding 
and  the  strength  based  on  fiber  failures.  The  test  results  of  this  program 
indicated  that  most  helical -wound  tubes  will  fail  according  to  the  strength 
level  predicted  by  the  locking  capability  of  the  crossovers.  This  level, 
for  intermediate  helical  angles,  is  higher  than  the  initial  yielding  but  is 
lower  than  the  strength  predicted  by  a  netting  analysis.  The  influence  of 
crossovers  is  apparently  insufficient  to  transfer  the  external  load  necessary 
to  cause  fiber  failures.  On  the  basis  that  the  strongest  composites  will  be 
those  governed  by  the  fiber  strength,  i.  e.  ,  fibers  fail,  the  glass -epoxy 
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helical- wound  tubes  tested  under  the  present  program  fell  short  of  the 
optimum  combination.  Fiber  failure  was  induced  only  in  the  5  inch  ID 
pressure  vessels. 

A  number  of  S  glass  helical- wound  tubes  were  also  made  and  tested 
in  torsion.  The  axial  strength  of  the  S  glass  is  approximately  one-third 
higher  than  that  of  the  E  glass  .  The  increased  axial  strength  of  the  S  glass 
did  not  produce  any  increase  in  the  ultimate  shear  strength  of  the  tubes 
subjected  to  torsion.  The  test  data  for  the  S  glass  tubes  are  shown  as 
crosses  in  Figure  17.  From  this  figure,  one  can  see  that  the  ultimate 
torque  that  the  tubes  carried  did  not  differ  much  from  that  of  the  E- glass 
tubes.  This  experimental  observation  is  in  agreement  with  the  theoretical 
prediction  of  the  strength  analysis  of  Appendix  A,  where  a  variation  of  the 
axial  strength  of  the  constituent  layer  from  50  to  150  ksi  did  not  induce  any 
significant  change  in  the  predicted  torsional  strength. 

The  optimum  strength  of  a  helical- wound  tube  may  be  arrived  at  by 
selecting  the  proper  axial  strength  of  the  unidirectional  composite  and  the 
crossover  strength  required  to  transfer  external  loads.  If  the  externally 
applied  load  on  a  tube  cannot  induce  fiber  failures,  it  appears  unnecessary 
to  use  higher  strength  fibers,  since  the  higher  strength  cannot  be  realized 
because  of  the  lack  of  an  adequate  internal  agency. 

Future  Research 

Two  areas  of  additional  investigation  appear  to  be  very  important  at 
this  time.  One  area  deals  with  the  characterization  of  filament  crossovers. 
From  the  theoretical  standpoint,  this  study  will  reduce  the  amount  of  empir¬ 
icism  that  is  necessary  in  the  present  strength  analysis.  In  particular,  the 
distribution  and  pattern  of  the  crossovers  as  a  function  of  various  process 
parameters,  such  as  the  diameter  of  the  tube  and  the  width  of  the  roving, 
should  be  included  in  addition  to  the  helical  angle.  These  parameters  will 
change  the  effective  strength  values  which,  in  the  present  program,  are 
assumed  to  be  constant. 
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Another  area  which  is  of  equal  urgency  is  the  investigation  of  the 
inelastic  behavior  of  unidirectional  and  laminated  composites.  When  external 
loading  induces  a  stress  level  beyond  the  initial  yielding,  time-dependent 
effects  become  very  significant.  Some  of  the  experimental  results  presented 
in  this  report  were  obtained  by  assuming  time-independent  material 
properties.  This  idealization  should  be  examined  more  critically  in  the 
future.  Assuming  that  the  deformation  and  strength  of  structures  can  be 
predicted  with  reasonable  accuracy,  it  will  be  an  interesting  investigation 
to  consider  optimizing  materials  for  various  structural  applications.  The 
contribution  of  the  constituent  materials  to  the  eventual  structure  can  now  be 
determined,  using  the  stiffness  and  strength  analyses  covered  in  this  report. 
The  results  of  this  parametric  study  will  have  a  definite  impact  on  the 
objectives  of  materials  scientists.  The  desired  properties  of  both  the  fibers 
and  the  matrix  can  be  described  in  terms  of  general  guidelines.  These 
guidelines  may  replace  the  present  "rules-of- thumb,  "  which  basically  rely  on 
the  limited  validity  of  netting  analysis. 

Finally,  extensive  experimental  measurements  are  needed  in  order 
to  conclusively  establish  the  results  presented  in  this  report.  Only  with 
sufficient  experimental  evidence,  can  designers  of  filamentary  structures 
proceed  with  structural  analyses  and  syntheses  with  confidence. 
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APPENDIX  A 


STRENGTH  ANALYSIS  OF  LAMINATED  COMPOSITES 


A.  1  INTRODUCTION 

The  Fortran  program,  Strength  Analysis  of  Laminated  Composites, 
is  written  in  two  parts.  The  first  part,  identified  by  MN  CM,  i.  e.  ,  Main- 
Composite  Materials,  determines  the  coefficient  matrices,  and  the  second 
part,  identified  by  PARTWO,  i.  e.  ,  Subroutine  PARTWO,  deals  with  the  yield 
criteria.  This  program  is  written  in  Fortran  IV  programming  language  and 
has  been  used  on  the  Philco  2000  digital  computer,  a  32K  system. 


MN  CM  is  used  in  the  stress  analysis  of  a  plate,  cylinder,  or  pres¬ 


sure  vessel  to  compute, 

(1)  the  composite  moduli  A,  B,  D,  A*,  B*,  H*, 
D*,  A',  B1  and  D'. 

(2)  the  thermal  forces  and  moments  defined  by 


C. .  a.  T  (1,  z)  dz 
U  3 


for  a  constant  temperature  T  across  the  laminated 
composite. 
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(3)  the  coefficients  for  each  N.,  M.,  and  T  in  the  stress 
relation 

4’  ■  cSf  j<Ajk +  *  v  Nk +  <Bjk +  z  v  Mk 

- [<Ajk +  2  v  Nk +  iBjk  * 2  v  4  -  “H  t 


for  a  plate,  and 


cr!k)  =  dk)  \  A  N,  +1  A.,  N, 
i  n  i  jk  k  |  jk  k 


[4  4  -  “jk)]T| 


for  a  cylinder  or  pressure  vessel, 

(k)  (k) 

from  input  values  of  a\  7  and  (k  =  1,  ...  n),  where  n  is  the  total 

number  of  layers  of  the  laminated  composite.  The  derivation  of  these 
equations  is  discussed  in  Section  2. 


A.  2  DETERMINATION  OF  COEFFICIENT  MATRICES 

The  first  part  of  the  Strength  Analysis  program,  MN  CM,  is  used  to 
determine  the  coefficient  matrices. 

It  is  assumed  that  each  unit  layer  is  homogeneous.  Thus,  matrices 
A,  B,  and  D,  whose  elements  are  defined  as 

-h/2  2 

(A..,  B..,  D..)  =  /  C..  (1,  z,  z  )  dz  (i,  j  =  1,  2  and  6) 

J-h/2  J 
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are  computed  from  the  relations 


N  ■  ±t  ^  -  \) 

By  =  m£  4  )  H,J  =  1,2  and  6) 


D.. 

ij 


n 

1/3  E 
k=i 


Matrices  A*,  B*,  H*  and  D*  are  computed  from  matrices  A,  B  and  D  as 


*1* 

a" 

=  A’1 

❖ 

B 

=  -A'1 

B 

H* 

=  BA-1 

D 

=  D  - 

BA-1  B 

^  fT 

Matrices  A1,  B'  and  D'  are  computed  from  matrices  A  ,  B  ,  H  and  D  as 

A'  =  A*  -  B*  D*'1  H" 

>:<  ❖  - 1 

BT  =  B  D 

D'  =  D"1 


101 


The  coefficients  of  the  thermal  forces  are  computed  from  the  relations 


C..  a.  Tdz 


k  =  1 .  .  n 

i,  j  =  1,2  and  6 


and  the  coefficients  of  the  thermal  moments  are  computed  from  the  relations 


T  /*k/2 

=  /  C..  01.  Tzdz 

1  J-hf?.  ^  J 


1/2  £  c!k)  a<k>  (h 2  - 

«  J  l  k+1 


■4  T 


1 .  .  n 

1,  2  and  6 


For  a  cylinder  or  pressure  vessel  it  is  assumed  that\  /C 
stress  components  for  each  layer  are  given  as 


=  0,  and  thus  the 


cfk)  |a*N,  +  [a*  f  C,g  ct  dz  -  afk)|  T 

ij  /  jk  k  jk  J  k&  £  j 


c!k)  ]  A*  N  +  A*  Nj  -  a.(k)  T  superscript  k  =  }...m 

lj  /  jk  k  jk  k  j  \  i,  J,k  =  1,2  and  6 


From  these  relations  the  coefficients  of  Nj,  and  T  are  computed  for 

the  stress  components  of  each  layer. 
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For  a  plate  the  stress  components  at  the  surface  of  each  layer 


CTSk)  =  cW((Ajk  +  ZB!k)  Nk  +  (Bjk  +  zD!k) 

+  £  (Ajk  +  zBjk)  Jck£  a£dz 

*  <Bjk  -  zDjk> /cki  “«zdz  -  ttf)  ]T} 

=  j  (A!k  *  zB:k)  Nk  *  (Bjk  +  ^!k) 

t  [  (Ajk  *  *Bjk)  Nj  +  (Bjk  +  zDjk)  MfcT  -  <f  >  ]  T  [ 

where 

superscript  k  =  l...n 

and  subscripts  i,j,k  =  1,2  and  6 


From  these  relations,  the  coefficients  of  Nj,  N^,  N^,  Mj,  and  T 

are  computed  for  the  stress  components  at  the  surface  of  each  layer. 

A.  2.  1  INPUT  PARAMETER  DEFINITIONS 


Parameter 


Definition 


N  N  is  the  total  number  of  layers 

THTA  THTA,  defined  for  angle-ply  composites, 

is  the  fiber  orientation  or  lamination 
angle  (degrees). 


Parameter 


Definition 


LPP 


J 


RM 


LKL 


MATRIX  H 

Cll5  C1Z>  C22’  C6l5 
C6Z,  C66,  elements 

OF  MATRIX  C 

MATRIX  ALPHA 


MATRIX  THETA 


LPP  defines  the  particular  case  under 
consideration. 

LPP  =  1  implies  a  cylinder  or  pressure 
ves  sel. 

LPP  =  2  implies  a  plate. 

J  is  a  format  control  which  defines  the 
heading  to  be  printed. 

J  =  1  implies  cross-ply 
J  =  2  implies  angle-ply 
J  =  3  implies  general  laminate 

RM  is  the  cross-ply  ratio  (total  thickness 
of  the  odd  layers  divided  by  that  of  the  even 
layers) 

LKL  is  a  format  control  which  defines  the 
heading  to  be  printed. 

LKL  =  0  implies  all  layers  intact 
LKL  =  1  imples  all  layers  degraded 

H(K)  is  the  thickness  of  the  kth  layer  (in.  ) 

C(I,  J,  K)  is  the  C..  element  (psi)  of  the 
anisotropic  stiffness  matrix  C  for  the  kth 
layer. 

ALPHA  (I,  K)  is  the  ith  element,  i  =  1,2 
and  6,  (in.  /in.  /°F)  of  the  thermal 
expansion  matrix  for  the  kth  layer. 

THETA  (K)  is  the  fiber  orientation  or 
lamination  angle  (radians)  for  the  kth  layer. 


A.  2.  3  OUTPUT  OF  PROGRAM 

(1)  Repeated  Input  Data. 

(2)  Coordinates  of  the  layer  surfaces  (in.) 
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(3)  A,  the  in-plane  stiffness  matrix  (10+^  lb/ in.  ) 

''  —  6  / 

A\  the  intermediate  in-plane  matrix  (10  in.  /lb) 

A',  the  in-plane  compliance  matrix  (10  in.  /lb) 

B,  the  stiffness  coupling  matrix  (10  lb) 

B  '  =  -  A  '  B,  the  intermediate  coupling  matrix  (in.) 

B\  the  compliance  coupling  matrix  (10  1/lb) 

h'  =  BA ' ,  the  intermediate  coupling  matrix  (in.) 

D,  the  flexural  stiffness  matrix  (10+^  lb-in.  ) 

D  ‘ ,  the  intermediate  flexural  matrix  (10  lb-in) 

D'  the  flexural  compliance  matrix  (10.  1 /lb-in.) 

Coefficients  of  the  thermal  forces  (lb/in.  /deg  F) 

Coefficients  of  the  thermal  moments  (lb/deg  F) 

(4)  For  a  plate: 

The  coefficients  of  Np  (1/in.),  M^, 

M6  (1/in.2)  and  temperature  (lb/in. /°F)  for  stress 
components  SIGMA  1,  2  and  6  for  each  layer 
surface. 

For  a  cylinder  or  pressure  vessel: 

The  coefficients  of  Nj,  N2>  N6  (1/in.)  and  tempera¬ 
ture  (lb/in. 2/°F)  for  stres s  components  SIGMA  1,  2 
and  6  for  each  layer. 

A.  2.  4  SUPPORTING  SUBROUTINES 

(1)  Subroutine  PARTWO: 

Description  is  outlined  in  Paragraph  A.  3 

(2)  Subroutine  RW  MATS: 

This  Fortran  IV  subroutine  computes  the  inverse  of 
a  matrix  B  from  the  linear  matrix  equation  BX  =  C 
where  C  is  the  identity  matrix  and  X  is  the  matrix 
where  the  inverse  is  stored. 

(3)  Aeronutronic  Library  Subroutine  F4MAMU: 

This  Fortran  IV  subroutine  computes  the  real  matrix 
product  C  =  AB  in  floating  point  single  precision 
arithmetic. 
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(4)  Aeronutronic  Library  Subroutine  F4MSB: 

This  Fortran  IV  subroutine  computes  the  difference  of 
real  matrices  A  and  B  where  the  matrix  difference  A-B 
replaces  matrix  B. 

Note:  MN  CM  can  be  used  without  entering  Subroutine  Partwo.  This  is 
effected  by  the  data  control  card  KQR  defined  in  Paragraph  A.  3.  1. 

In  this  case  matrix  THETA  is  not  used  in  the  computation;  hence, 
this  data  card  may  either  be  blank  or  contain  any  arbitrary  numbers 
formatted  E12.  6. 

A.  3  YIELD  CRITERIA 


Subroutine  PARTWO  determines  those  values  of  and/or  kL  which 
satisfy  the  yield  condition  defined  in  Section  2. 

(k) 

For  a  cylinder  or  pressure  vessel,  the  stress  components,  07  ,  for 

each  layer  can  be  written 


CT(k)  _  L(k)  N  +  p(k)  N  +  Q(k)  N  +  R(k)  T 

i  i  1  i  2  i  o  l 


where  the  coefficients  p!k\  and  rP^  have  been  computed  in 

MN  CM.  Subroutine  PARTWO  considers  the  cases 


1.  Nj  t  0,  N2  =  N6  =  0 


2.  2Nj  =  N2,  N6  =  0 


3.  N6  jt  0,  Nx  =  N2  =  0 


For  a  plate,  the  stress  components,  0\  ,  for  each  layer  surface  can  be  written 

a(k)  _  x(k)  N  +  j(k)  N  +  S!k)  N,  +  U^k)  M,  +  vjk)  M2 

i  i  1  i  2  i  6  it  12 


+  w!k)  Ma  +  T 

l  b  l 
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1.  Nj  *  0,  N2  =  N6 

2.  N2  i  0,  N1  =  N6 

3.  N6  t  0,  Nj  =  N2 

4.  Mj  t  0,  N.  =  M2 

5.  M2  ^  0,  N.  =  Mj 

6.  M,  /  0,  N.  =  M, 

6  l  1 


1,  2  and  6 


For  the  above  cases,  cn  '  reduces  to  an  expression  in  2  variables 
one  of  the  variables  always  being  T. 


The  terms  ',  which  are  defined  in  the  1-2  plane,  where  1  and  2 
represent  the  coordinate  axes  of  the  externally  applied  stress  components, 
are  transformed  into  the  x-y  plane,  x  and  y  being  the  material  symmetry 
axes,  by  the  relation 
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where  m  =  cos  0,  n  =  sin  0  and  0  =  the  fiber  orientation  or  lamination 

(k)  (k)  (k) 

angle  (radians)  of  the  kth  layer.  Thus  ,  and  7  are  also  expres 

sions  in  2  variables. 


Quadrant  1: 


(ax  ay\ 
T,  "Y"  I 


plane  is  given 


^  =  1 


Quadrant  2 


Quadrant  3: 


■W-  *&)&)•(»)■•(») 


Quadrant  4: 


where  r2  =  -2-,  r2  =  r3  =  ^  >  *4  =  -71  and  X,  Y,  X',  Y'  and  S  are 

defined  respectively  as  XA(K),  YA(K),  XP(K),  YP(K)  and  S(K).  But  since 
(k)  (k) 

<T  7  and  Cr  7  are  expressions  in  2  variables,  their  signs  cannot  be  deter- 
X  y  (k)  (k)  (k) 

mined,  and  hence  rr  ,  qV  7  anda  7  are  substituted  into  the  yield  condition 
x  y  s 

for  each  quadrant,  thus  obtaining  4  quadratic  equations  of  the  form 


Ea!^  +  FA^  +  GT2  -1-0 


(k) 

where  E,  F  and  G  are  constants  and  A|  =  N^,  N^>  N^,  Mj,  or 


For  each  input  value  of  temperature,  the  four  quadratic  equations  are 

(k) 

solved  by  the  quadratic  formula  and  the  solutions  are  used  to  compute  cr^. 

and  From  the  signs  of  and  it  is  determined  which  yield 

y  &  x  y 


condition  should  have  been  used  and  the  corresponding  solutions  are  assigned 
to  the  quadrant  associated  with  this  yield  condition. 

Thus,  a  solution  which  represents  a  computed  value  of  Nj,  N^>  N^ 
Mj,  or  is  valid  if  the  quadrant  to  which  it  has  been  assigned  is  the 

same  quadrant  as  that  of  the  yield  condition  which  it  satisfies. 

A.  3.  1  INPUT  PARAMETER  DEFINITIONS 


Parameter 


Definitions 


KQR  KQR  defines  a  data  control  card. 

KQR  =  1  implies  return  to  the  main 

program. 

KQR  =  0  implies  that  Subroutine  PARTWO 
is  to  continue  reading  data. 

Note:  KQR  =  1  permits  using  the  main  program 

without  entry  into  Subroutine  PARTWO. 

EL  EL  defines  the  particular  case  under 

consideration. 

For  a  Plate: 


LL  = 

1  implies  Nj 

f 

0 

LL  = 

2  implies  N^ 

0 

LL  = 

3  implies  N^ 

0 

LL  = 

4  implies  M ^ 

0 

LL  = 

5  implies 

0 

LL  = 

6  implies 

0 

For  a  Cylinder  or  Pressure  Vessel: 

LL  = 

1  implies  N^ 

0 

LL  = 

2  implies  N^ 

0 

LL  = 

3  implies  2Nj 

= 

N2 
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Parameter 

JK 


NM 

MATRIX  T 

MATRIX  XA 

MATRIX  YA 

MATRIX  XP 

MATRIX  YP 

MATRIX  S 

TITLE 


Definition 


JK  is  a  format  control  that  defines  which 
quadratic  equations  are  to  be  printed. 

JK  =  1  implies  cases  Nj  or  M^ 

JK  =  2  implies  cases  or  M^ 

JK  =  3  implies  cases  or  M^ 

Note:  For  case  2N^  =  N^,  choose  JK  =  2 

NM  is  the  number  of  input  values  of 
temperature. 

T(K)  is  temperature  (Degrees  F) 

XA(K)  is  the  axial  tensile  strength  (psi)  of 
the  kth  layer. 

YA(K)  is  the  transverse  tensile  strength  (psi) 
of  the  kth  layer. 

YP(K)  is  the  axial  compressive  strength  (psi) 
of  the  kth  layer. 

YP(K)  is  the  transverse  compressive  strength 
(psi)  of  the  kth  layer. 

S(K)  is  the  shear  strength  (psi)  of  the  kth 
layer. 

TITLE  is  an  alphanumeric  description  of  the 
case  under  consideration. 


A.  3.  2  INPUT  DATA  CARD  LISTING 


Card  No. 

Parameter 

Data  Field 

Format 

1 

KQR,  LL,  JK 

1-3 

11 

NM 

4-5 

12 

Z  to  P 

T 

1-72 

FI 2.  6 

Note:  Card  No.  P  =  2  +  whe 

re  NM  is  the  number  of  input  value 

temper 

ature  and  [  ]  represents  the  greatest  integer  function. 

P  +  I  to  Q 

XA 

1-72 

E 12.  6 

Note:  Card  No.  Q  = 

(p 

+  1)  + 

fN-l' 

LHT. 

] 

Q  +  1  to  R 

YA 

1-72 

E 12.  6 

Note:  Card  No.  R  = 

(Q 

+  1)  + 

[n-i] 

R  +  1  to  S 

XP 

1-72 

E12.  6 

Note:  Card  No.  S  = 

(R 

+  1)  + 

"n-i" 

S  +  1  to  T 

YP 

1-72 

E 12.  6 

Note:  Card  No.  T  = 

(S 

+  1)  + 

‘n-i' 

_T\| 

T  +  I  to  U 

S 

1-72 

E12.  6 

Note:  Card  No.  U  = 

(T 

+  1)  +  | 

‘n-iI 

.~r] 

U  +  1 

TITLE 

1-72 

12A6 

112 


A.  3.  3  OUTPUT  OF  PROGRAM 


(1)  Repeated  input  data. 

(2)  For  a  cylinder  or  pressure  vessel: 

For  each  layer  the  quadratic  equation  obtained  from  the  appro¬ 
priate  yield  condition  for  each  quadrant  in  unknowns  T  and  1NL 
or  M^,  i  =  1,  2  or  6. 

Solutions  of  each  quadratic  equation  for  input  values  of  tempera¬ 
ture  and  the  appropriate  quadrant  to  which  these  solutions  belong. 

(3)  For  a  plate  output  as  given  in  (2)  for  each  layer  surface. 

Note: 

(1)  A  solution  is  valid  if  the  quadrant  to  which  it  belongs  agrees  with 
the  quadrant  of  the  quadratic  equation  which  it  satisfies. 

(2)  A  complex  solution  is  represented  by  -.77777777  E-77.  A 
complex  solution  implies  that  no  real  values  of  or  M^  will 
satisfy  the  yield  condition,  i.  e.  ,  the  temperature  stresses  have 
already  resulted  in  failure  of  the  laminate. 

A.  3.  4  PROGRAM  LISTING 

At  the  end  of  this  appendix  is  a  listing  of  the  Fortran  statements  which 
make  up  the  program  MN  CM,  its  supporting  Subroutine  RW  MATS  and  Sub¬ 
routine  PART  WO. 

A,  3.  5  SAMPLE  PROBLEM 

The  sample  output  presented  at  the  end  of  this  appendix  is  that 
obtained  for  a  two-layer,  angle-ply  cylinder,  all  layers  intact,  where 
0  =  15  degrees.  Subroutine  PARTWO  considers  the  case  NJ  i  0, 


113 


Since  the  anisotropic  stiffness  matrix  C  is  symmetric,  only  six  of  its 
coefficients  need  be  printed.  Also,  since  the  stress  components  of  a  cylinder 
are  not  a  function  of  M.,  only  the  coefficients  of  N.  and  temperature  are 
printed.  Typical  output  format  for  a  flat  laminate  plate  is  as  shown  in  a 
previous  report,  NASA  CR-224.  For  a  cylinder,  the  coefficients  of  the  stress 
components  are  given  per  layer  since,  within  each  layer,  the  stresses  are 
uniform.  For  a  plate,  the  coefficients  of  the  stress  components  are  given  for 
each  layer  surface,  as  illustrated  in  NASA  CR-224. 

Using  the  method  outlined  in  Paragraph  A.  3,  those  solutions  which 
represent  the  correct  values  of  N-^  in  the  sample  problem  for  the  given  values 
of  temperature  are  as  follows: 

(1)  For  Compression  -  solution  2  of  the  quadratic  equation 
given  for  Quadrant  2. 

(2)  For  Tension  -  solution  1  of  the  quadratic  equation  given 


for  Quadrant  4. 


MN  CM  -  MAIN  COMPOSITE  MATERIALS  PROGRAM 


START 


GO  TO  START 


115 


i 


116 


GO  TO  START 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0C27 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 


CHN  CM 

COMHON  THETA(50),N,TH(3,3) ,LPP , LL , PCNOl 3 , 50 ,2 > , RBI 3,50, 2 ) . 

X  PCNT  <3, 50, 2), PC NT R< 3, 50,2 ) ,PCH0(3, 50,2) ,PCMT13,50,21 , 

X  PCMTRf 3,50,2) »RC<  3, 50,2), PCT( 3,50,2) ,RS< 3,2) ,RD( 3,2) .XA( 50) 

X  ,S(50),XP(5D) ,YA(50),YP(50),CVS(4),CVP(4) ,CTS(4),NM, 

X  SOL (4, 50, 2 ) , T t  50 ) , S IGMX( 2 ) , S 1 GMY l 2 ) , 1  QUAD (4,50,2) »PR? (3,50), 

X  CNO( 3, 50 ) ,CNTR< 3, 50 > ,CNT ( 3, 50 ) ,PRC< 3 , 50 ) ,CT ( 3 , 50) , TI TLE ( 10 ) 

X  , JK,Z( 55) 

01  HENS  ION  ALPHAI3,50),H(50),A(3,3),B(3,3) ,Dt3,3) ,C( 3,3, 50), 

X  HS(50),HC(50),AN(3,6) , X< 3,3) , ASTAR( 3 , 3) ,BSTAR ( 3 ,3 > , 

X  HSTAR(3,3),DSTAR«  3, 3 ) , DPR I( 3 , 3 ) , BPRK 3, 3 ) , APRI ( 3,3 ) , 

X  SUM ( 3 , 50 ) , TSUM ( 3 ) ,TADO ( 3 ) ,RNT I  3 ) , RMT  <  3) , SASR( 3) , 

X  DSUM(3,55),CSUH(3»50,2) 

1  READ  (8,2)  N, THTA, LPP.J.RH, LKL 

2  FORMAT  U2,F5.2,2I1,F12.6,IU 
C  N  =  NO.  OF  LAYERS 

C  MAXIMUM  VALUE  OF  N  IS  N  =  50 

C  THTA  IMPLIES  ANGLE  -  PLY 

C  LPP  1  1  IMPLIES  PRESSURE  VESSEL  OR  CYLINDER 
C  LPP  *  2  IMPLIES  PLATE 

C  J  =  l  IMPLIES  CROSS-PLY 

C  J  *  2  IMPLIES  ANGLE-PLY 

C  J  =  3  IMPLIES  GENERAL  LAHINATE 

C  RM  =  CROSS-PLY  RATIO 

C  LKL  =  0  IMPLIES  ALL  LAYERS  INTACT 

C  LKL  =  1  IMPLIES  ALL  LAYERS  DEGRAOEO 

READ! 8, 6 )  (HIK),  K  =  1,N> 

6  FORMAT ( 6F 12. 6 ) 

RE AO (6,7)  (C(1,1,K>,C(1,2,K)»C<2,2,KJ,C(3,1,K),C(3,2,K),C(3,3,K> 

X  ,  K* 1 , N  ) 

7  FORMAT  (6E12.6) 

READ! 8, 7)  < (ALPHA! I,K),I*1,3),K=1,N) 

READ  18,7)  (THETA(K),  K*1,N) 

TOTAL  *  0.0 
00  11  K  =  1,N 
C(2,1,K)  x  C ( 1 , 2, K ) 

CU.3.K)  >  C  (  3 , 1 ,  K  ) 

C(2,3,K)  x  C(3,2,K) 

11  TOTAL  *  TOTAL  ♦  HIK) 

7(1)  =  -TOTAL/2. 

MM  =  N  +  1 
DO  12  K  =  2, MM 

12  Z(K)  =  Z!K-1)  ♦  HIK-1) 

IF  IJ  .EQ.  2)  GO  TO  300 
IF  (J  .EQ.  3)  GO  TO  600 
WRITE( 5,200 )  RM.N.N 

200  F0RMAT(1HI,37X,9HC ROSS- PLY, 4X , 3HM  =F 5 . 3 , 5X , 1 7HALI  LAYERS  INTACT/ 

X  50X,  12, IX,  12HLAYERS  (N  -  12, 1HH 

GO  TO  215 

600  HRITEI5.625)  N,N 

625  FORMAT! IH1,41X, 16HGENERAL  LAMINATE ,4X, 17HALL  LAYERS  INTACT/ 

X  SIX, 12 , IX, 12HL AYERS  (N  *  12, 1H ) ) 

GO  TO  215 

300  IF  (LKL  .EQ.  1)  GO  TO  212 
WRITE  (5,2X0)  THTA»N, N 

210  FORMAT  1 1HI,33X, 9HANGLE-PLY,4X,8HTHETA  =  F5.2, IX, 7HDEGREES.4X, 

X  17HALL  LAYERS  INTACT/ 
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0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
00  76 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 


X  52X, 12, IX, 12HL AYERS  (N  =  12, 1H ) 1 

GO  TO  215 

212  WRITE  (5,214)  THTA, N, N 

214  FORMAT ( IHl, 33X»9HANGLE-PLY,4X,8HTHETA  x  F5.2,1X,7H0EGREES,4X, 

X  19HALL  LAYERS  DEGRADED/ 

X  52X, 12, IX, 1 2 HL AYERS  (N  »  12, 1H)) 

215  WRITE  (5,220) 

220  F0RMAT(/1H0,1X,5HLAYER,2X,9HTHICKNESS,2X,14HC00R0INATES  OF/ 

X  3X.3HN0-, 3X.9H0F  L AYER S , 2 X, 14HLAYER  SURFACES ,15X, 

X  26HC0EFS.  OF  STIFFNESS  MATRI X , 14X ,27HC0EFS.  OF  THERMAL  EXPAN 

XS ION/ 

X  9X,0H( INCHES), 6X,8H{ INCHES) ,22X,17H(10+6  LB. /IN. SO. ) , 22X, 

X  21HIL0-6  IN. /IN. /DEG. F.)// 

X  4XflHK,6X,4HH(K),5X,4HZ(K),4X,6HZ(K+l)»3X,6HC(l,l),3X, 

X  6HC ( 1 , 2 ) »  3X» 6HC ( 2,2 ) , 3X,6HC (6,1), 3X,6HC( 6,2 ) , 3X,6HC (6,6) , 2X, 

X  8H ALPHA! 1 1 , IX, 8H ALPHA ( 2 1  *  IX, 8HALPHA(6 ) // ) 

WRITE  (5,225)  (K,H(K),Z{K),Z(K*l}'C(l,l,Kl,CU,2,K),C(2,2,K), 

X  C(3,1,K),C(3,2,K),CI3,3,K),ALPHA(1,K) , ALPHA! 2 , K) , ALPHA ( 3 ,K) 

X  ,K-1,N) 

225  FORMAT (3X,I2,3X,OPF9.4iOPF9.4,OPF9.4,-6PF9.4,-6PF9.4,-6PF9.4, 

X  -6PF9.4, -6PF9.4«»6PF9.4, 

X  6PF9.4,6PF9.4,6PF9„4» 

00  10  K  =  l ,  N 

HS( K  )  »  Z(K  +  1 1»®2  -  Z ( K  )o»2 
10  HC<  K I  =  Z ( K* 1 ) -  H X  )*«3 
DO  20  I  =  1,3 

DO  20  J  =  1,3 

A (  ! , J  )  >  0.0 
BII,JI  »  0.0 
0!  I  , J  )  -  0.0 
DO  30  K  -  1 , N 

A  (  I , J  )  -  A ( I , J }  +  C( I,J,K)  «  HIK) 

0(1, J)  *  B( I » J )  ♦  C(I.J.K)  •  HSIKI 

30  0(1, J)  =  D(  I  ,  J  )  ♦  C(I.J.K)  •  HC  (  K  ) 

B  <  1 ,  J  I  *  B  (  I  ,  J  )  /  2  . 

0<  I, J  )  »  D( I , J )/3. 

20  CONTINUE 
L  -  0 

DO  35  I  *  1,3 
DO  35  J  *  1,3 
35  AN( I, J)  *  A(  I, J) 

33  DO  38  I  *  1,3 
00  38  J  *  4,6 

38  AN(I.J)  =  0.0 
DO  39  I  •  1,3 

39  AN l I , I +3 )  -  1.0 

IF  (L  .EQ.  1)  GD  TO  34 
CALL  MATS  ( AN, X , 3,3, MAT ERR) 

IF  (MATERR)  32,32,31 

31  WRITE  (5,3)  ( ( A ( I , J ) ,  I  *  1,3),  J  *  1,3) 

3  FORMAT  ( 1H0, 20HMATR ] X  A  IS  S INGUL AR// ( 3 ( -6PF8. 4 ) ) ) 

GO  TO  1 

32  CALL  F4HAMU  ( 3, 3, 3, X, B, BSTAR ) 

00  40  I  »  1,3 

DO  40  J  *  1,3 
ASTAR (  I , J )  -  X(I, J) 

40  BSTAR(I.J)  -  -BSTARt 1 , J ) 
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0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 


CALL  F4HAMU  I  3, 3, 3, B, X, HSTAR ) 

CALL  F4MAMU  (3,3,3,HSTAR„B,DSTAR) 

CALL  F4MSB  ( 3, 3. D,DSTAR ) 

00  45  1  =  1,3 

DO  45  J  =  1,3 

45  AN ( l , J I  =  OSTAR(I.J) 

L  =  1 
GO  TO  33 

34  CALL  HATS  < AN, DPR  1 , 3, 3, HA  TERR > 

IF  (MATCRR1  36,36,13 

13  WRITE  15,5)  I IDSTARI 1, J),  I  *  1,3),  J  =  1,31 
5  FORMAT  ( 1H0.24HMATRIX  DSTAR  IS  SINGULAR// (3I-6PF3.4) 1) 
GO  TO  1 

36  CALL  F4HAHU  ( 3, 3, 3.BSTAR.0PRI ,BPRI ) 

CALL  F4MAMU  I 3, 3,3, BPRI , HSTAR, APRI ) 

CALL  F4HSB  I  3, 3, ASTAR, APRI) 

DO  50  I  =  1,3 
00  SO  K  *  1 *N 
SUM( I ,  K )  =  0.0 
00  50  J  =  1,3 

50  SUM ( I , K )  =  SUM t I »  K  )  ♦  C(I.J,K)*ALPHA( J,K) 

00  60  1  =  1,3 
TSUMI I )  =  0.0 
TADOU)  =  0.0 
DO  55  K  *  1 , N 

TSUMII)  *  TSUHI 1 )  +  SUM ( I  ,  K )«H I K ) 

55  T  ADD  I  I )  *  TADDII)  +  SUM( I ,K ) oHS I K ) 

RNT I  I  )  =  TSUHI I > 

60  RMTI I )  =  TADDI I )/2. 

IF  I LPP  .EQ.  2)  GO  TO  100 

DO  70  K  =  1 i N 

DO  70  I  =  1,3 

CNOI I , K )  =  0.0 

CNT I I,K)  =  0.0 

CNTRl  I ,  K  » =*  0.0 

DO  70  J  «  1,3 

CNOI I , K )  =  CNOII.K)  +  Cl I,J,K)oASTARl J,l) 

CNT  I  I  ,K )  =  CNTU.K)  +  C  (  I  ,  J  ,  K )  *  ASTAR  (  J  ,2  ) 

70  CNTRII,K)=  CNTRl  I  ,K )  +  Cl  I  ,  J  ,K  )  “ASTARO,  3) 

DO  90  1  =  1,3 
SASRI I )  =0.0 
DO  90  J  =  1,3 

90  SASRII)  =  SASRI  I  )  +  ASTAR  1 1 ,  J  )  »RNT{  J  ) 

DO  115  K  =  1 , N 
DO  115  I  *  1,3 
CTI 1 ,K  )  =  0.0 
DO  110  J  =  1,3 

110  CTII.Kl  =  CTI  I  » K  )  +  Cl  I,J,K)»SASRI  J) 

115  CTI I »K )  =  CTll.K)  -  SUHII.K) 

GO  TD  700 
100  DO  75  K  =  1, N 
DO  75  I  =  1,3 
DO  75  LR  *  1,2 
PCNOI I ,K, LR )  =  0.0 
PCNTI I , K, LR )  =  0.0 
PCNTR I  I , K, LR  )  =  0.0 
PCHOI I ,K, LR )  =  0.0 
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0172  PCHT I  I , K, LR )  =  0.0 

0173  75  PCMTRI I ,K, LR )  =0.0 

0174  00  60  K  =  1 , N 

0175  DO  80  I  =  1.3 

0176  DO  80  J  =  1,3 

0177  PCNOlI.K.i)  =  PCNOI  I,K,1)+CI  I,  J,K)*<  APRI  I J , 1 1  +  Z I K ) • BPR I  I  J.l)  ) 

0178  PCNT I  I , K , 1 )  *  PCNT|I,K,1)+C(I»J»K)»(APRI(J,2)+ZIK)«8PRIIJ,2)) 

0179  PCNTRI I  ,  K ,  1 )  =  PCNTR  1 1 ,  K,  1 »  +  C  I  I  ,  J,  K  )  *{  APRI!  J  ,  3  )  +  Z I  K  )  “BPRI  I  J,  3  )  ) 

0160  PCNOI 1,K, 2)  =  PCNOI I«K,2>+C(I»J»K)*(APRIIJ,1I+Z(K+1J*BPRI(J»1>) 

0181  PCNTI I,K,2)  =  PCNTI I ,K, 2 1 +C 1 1 , J,K ) “ I  APR  1 1 J , 2 )  +  Z I K+l > “BPR 1 1 J,2 >> 

0182  PCNTR I  1 , K, 2 )  =  PCNTR ( I , K , 2 ) +  C 1 1 , J , K ) » I A  PR  I  I J , 3 > ♦ Z { K+l > “BPR I  I J , 3 ) ) 

0183  PCMOII.K.II  =  PCHOI I , K, 1 > +C 1 1 , J.KI “ I BPR 1 1 J , 1 ) +Z I K ) “OPR  1 1 J,l) ) 

0184  PCMT I  1 , K, 1 )  =  PCHTI I ,K , 1 ) +C II , J ,K) “ l BPR H J , 2 )+Z I K1 “ DPR  1 1 J, 2 1 ) 

0185  PCMTRI I «  K , 1 )  =  PCMTRI I,K,1)+C< I ,J,K>“IBPRI I J , 3 )  +  Z I K ) “DPR  1 1 J,3) ) 

0186  PCMO l I , K , 2 )  =  PCHOI I ,K , 2 ) +C ( I , J ,K ) “ I BPRI! J , 1 )  +  Z l K+l > “DPR  I ( J , 1 )) 

0187  PCMT I  I , K, 2 )  *  PCMT I  I ,K, 2 ) +C I  I , J,K ) *  I BPR 1 1 J , 2 >+Z 1 K+l ) “DPR 1 1 J,2 ) ) 

0188  80  PCMTR I  1 ,K , 2 )  =  PCMTR I  1 ,K, 2 ) +G 1 1 , J, K ) *  I B PR l I J,3 ) +  Z I K+l ) “DPR  1 1 J, 3 )  ) 

0189  HM  =  N  +  1 

0190  DO  120  K  =  1 ?  HM 

0191  DO  120  I  =  1,3 

0192  OSUHI I , K )  =  0.0 

0193  DO  120  J  *  1,3 

0194  120  DSUHII.K)  =  DSUMII.K)  +  IAPRIII.J)  ♦  Z I K) “8PRI 1 1 , J )> “RNT ( J )  + 

0195  X  ( BPR 1 1  I , J )  +  Z IK ) “OPR  I ( I , J I )  “RMT ( J) 

0196  DO  140  K  =  1,N 

0 i 97  DO  140  I  =  1,3 

0198  CSUMI I,K,1)  *  0.0 

0199  CSUMI I,K,2)  =  0.0 

0200  DO  130  J  =  1,3 

0201  CSUMII.K.I)  *  CSUMI I ,K , 1 )  +  C I  I , J, K ) +DSUH I J,K ) 

0202  130  CSUMI I ,K, 2 )  =  CSUHI1,K,2)  ♦  C I I , J ,K» “OSUMI J ,K+1 ) 

0203  PC  T (  I , K , 1 )  =  CSUMII.K.I)  -  SUHII.K) 

0204  140  PCT I  I , K , 2 )  =  CSUM ( I , K , 2 )  -  SUMII.K) 

0205  700  WRITEI 5, 230  ) 

0206  230  FORHAT I///1H0.15X, 1HA,31X,2HA«,27X,7HA  PR  I  HE, 12X .22HCOEF.  OF  THERH 

0207  XAL  FORCE/ 

0208  X  10X.14HI10+6  LB./IN. ) , 1 6X ,14H 1 10-6  IN./LB. ) ,18X, 

0209  X  14HI10-6  IN. /LB.) , 1 IX, 16H (LB. / IN. /DEG.F. )//) 

0210  WRITE  I  5 , 235 )  I  A  I  1 , 1) , A  I  1 ,2 ) , A  1 1 , 3 » , ASTAR ( I , 1 ) , AS  TAR  I  1 , 2 ) , 

0211  X  ASTAR! I , 3 ) , APR  I II , 1 ) , APR  I (( ,2), APRI! I ,3) , I.RNTII )  ,1  =  1,3) 

0212  235  FORMAT! IX, -6PF 10.4, -6PF 10.4, -6PF 10.4, 2X.6PF 10.4, 6PF 10. 4, 

02  L  3  X  6PF10.4,2X,6PF10.4,6PF10.4,6PF10.4,5X,1HN, 

0214  X  I 1 , 3H-T  .1X.0PF8.4) 

0215  WRITEI5.240) 

0216  240  FORMAT  I / 1H0, 15X,1HB,31X, 2HB“  »27X,7HB  PR IME , 12X , 23HCOEF.  OF  THERMAL 

0217  X  MOMENT/ 

0218  X  12X, 10HI 10+6  IN. ) ,22X,10H(10+0  IN. ) ,21X,12H(10-6  1/L8.),14X, 

0219  X  12HILB. /DEG.F. )//) 

0220  WRITEI5.245)  ( B I  I , 1 ) , BII ,2  ) , B 1 1 ,3 ) , BSTAR 1 1 , 1 ) , BSTAR 1 1 ,2 ) , 

0221  X  BSTAR! 1,3), BPRI I  1,1), BPR I (1,2) ,RPR1 1 1 *3) , I ,RMT( I )  ,1  =  1,3) 

0222  245  FORMAT! IX, -6PF 10.4, -6PF 10.4, ~6PF 10. 4,2 X,OPF 10.4, OPF 10. 4, 

0223  X  OPF10.4,2X,6PF10.4,6PF10.4,6PF10.4,5X.1HM, 

0224  X  I1.3H-T  ,lX,0Pf8.4> 

0225  WRIT  E I  5, 250  ) 

0226  250  FORMAT! /1H0,47X,2HH“/44X,  10HI 10+0  IN. I//) 

0227  WRITEI 5*255 )  I HSTAR 1 1 , 1 ), HSTAR! I ,2 ) .HSTAR I  I , 3 )  ,1  =  1,3) 

0228  255  FORMAT  I 33X, 3F10 .4) 
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0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
023B 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
C268 
0269 
02  70 
0271 
0272 


WRITE  I 5,  260 ) 

260  FORMATt/lHO,l5X,lHO,31X,2HD*,27X,7HO  PRIME/ 

X  10X.13HI10+6  LB. IN. ) , 19X, 13H( 10+6  LB.IN.I,18Xf 

X  15HUD-6  1/LB. IN.)//) 

WRITE  I  5, 265)  1 D< I , 1 ) , D( 1 , 2 ) » D 1 1 , 3 ) , OS  TAR ( I , 1 ) »DST6R II ,2) , 

X  DSTARI I ,3 ) ,OPRII I .1 ) ,DPRH I ,2) ,DPRI ( I ,3)  *1=1*3) 

265  FORMAT! 1 X , -6PF 10 . 4, -6PF 10 . 4 , -6PF 10 . 4 , 2X , -6PF10. 4 ,-6PF 10 . 4 , 

X  -6PF10.4,2X,6PF10.4,6PF10.4,6PF10.4) 

IF  ILPP  .EQ.  1)  GO  TO  400 
WRITE  (5,270 

270  FORMAT! /I HO, 6X,1 HZ, 8X,6HS TRESS, 3X, 11 HCOEF.  OF  N1 ,2X,11HC0EF.  OF  N2 
X  ,2X, 11HC0EF.  OF  N6,2X, 11HC0EF.  OF  Ml, 2X.11HCQEF.  OF  M2,2X, 

X  11HC0EF.  OF  M6, 2X, 14HCQEF .  OF  TEMP./ 

X  5X,5H( IN. ) ,4X,9HC0MP0NENT,4X,7H!1/IN. ) , 6X , 7H ( 1 / I N. ) , 6X, 

X  7H! 1/IN. ) ,4X* 10HI 1/IN. SO. ) ,3X,10H(1/IN.SO. ) ,3X, 

X  10H(1/IN.SO.),3X,15H(LB./IN.SO./F.)//I 

00  500  K  =  1»N 
WRI TE ! 5 , 275)  K 

275  FORMAT! 50X.9H—  LAYER  , 12, 3H  --//) 

WRI TE ( 5, 280 )  Z(K),  ( PCNO! I , K, 1 1 ,PCNT ( I , K, 1 ) , PCNTR!  I  ,K, 1 ) , 

X  PCMO! I ,K, 1 ) , PCMT ! I ,K, 1 ) ,PCMTR ( I ,K , 1 ) , PCT ( 1 ,K, 1 )  ,1=1,3), 

X  ZlK+1),  I PCNO! I,K»2),PCNT(I,K,2), PCNTR! I ,K,2) • 

X  PCMO! I, K, 2). PCMT! I,K,2),PCMTR! I, K, 2), PCT! I ,K»2) ,  1=1,3) 

280  FORMAT! 3X,F6. 4, 4X.7HSIGMA  1, 4X, F8.4,5F13.4,6X,F8.4/ 


X  21X,1H2,4X,FB.4,5F13.4,6X,F8.4/ 

X  21X,1H6,4X»F8.4,5F13.4,6X,F8.4/) 

500  CONTINUE 
308  CALL  PARTWO 
GO  TO  l 

400  WRITE ! 5 , 285  I 

285  FORMAT! /1H0, 30X,6HSTRESS, 3X, 11HC0EF.  OF  N1 ,2X, 1 1HC0EF .  OF  N2.2X, 
X  1 1HC0EF .  OF  N6,2X, 14HC0EF.  OF  TEMP./ 

X  29X,9HCOHPONENT,4X,7H( i/IN. ),6X,7H(1/IN. ) ,6X,7H(1/IN. ) ,4X, 

X  15HILB./IN.S0./F.)//) 

00  550  K  =  1 , N 
WRITE  ! 5 , 290 )  K 

290  FORMAT! 55X.9H —  LAYER  ,I2,3H  — //) 

WRITE  (  5,295)  (CNO! I ,K) ,CNT  t I ,K) ,CNTR ( I,K) ,CT ! 1 *K)  ,1  =  1,3) 

295  FORMAT ( 30X, 7HS IGMA  1, 4X , F 8 . 4 , 2F 1 3. 4 , 6X , F 8 . 4/ 

X  36X,lH2,4XtF8.4,2F13.4,6X,F8.4/ 

X  36X, 1H6,4X,F8.4,2F13.4,6X,F8.4/) 

550  CONTINUE 
GQ  TO  308 
END 
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0001 

0002 

0003 

00C4 

0005 

0006 

0007 

0008 

0009 

0C10 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

002C 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 


CSUB  RW  MATS 

SUBROUTINE  MATS! A, X, N, M,MATERR ) 

DIMENSION  A(3,6),X13,3) 

MATE  RR=G 
MM=N+M 
00  15  1=2, N 
70  1 1=1-1 

7  DO  15  J=1,II 

8  IF  ! A! I , J ) .EQ.O.O)  GO  TO  15 

9  IF  ! ( ABS! A! J, J ) l-ABS! A! I , J) ) > .LT.O.O)  GO  TO  11 

10  R=A(!»J)/A(J»J) 

GO  TO  130 

11  R=A( J, J ) /A! I » J ) 

00  12  K=1,MM 
B=A( J  •  K ) 

A  (  J,  K )  =  A  t  I  ,  K  ) 

12  A! I , K  )  =  0 
130  JJ=J+l 

13  00  14  K  =  J J  *  HH 

14  A( I,K)=A( I,K)-R+A!J,K) 

15  CONTINUE 

IF  ( ( ABS! A(N,N) )-l .0E-10 ) .GT.O.O)  GO  TO  17 
16  CONTINUE 

100  FORMAT ( 26H0  ELEMENT! I  2, 1H, I  2 , 1H ) , 

X  38H  VERY  SMALL.  CASE  DELETED  BY  MATS  ) 

WRITE  (5,100)  N»N 
MATERR=1 
GO  TO  500 
17  D028J=1,H 

KK=N+J 

X!N,J)=AIN,KK)/A(N,N) 

00281=2, N 
J J=N- I + 1 
B=D. 

II=N-I+2 
DO  25  K= I  I ,N 
25  B=B+A(JJ,K)»X(K,J ) 

IF  ( ( ABS! A! JJ, JJ ) )-1.0E-10) .LE.O.O)  GO  TO  16 
ZB  XUJ,  J )= ( At JJ.KK l-B )/Al  JJ,JJ) 

500  RETURN 
END 


MATS0003 

MATS0G04 

MATS0005 

HATS0006 


HATS0009 
MATS0010 
MATSOOU 
MATSOO 12 
MATSOOU 
MATSOO 14 
MATS0015 
MATSOO  16 
MATSOO 17 
MATSOO 18 
MATS0019 


MATSOO 22 
MATSOO 23 
MATS0024 
MATS0025 
MATS0026 
HATS0C27 
MATS0028 
MATS0029 
MATS0030 

MATSOO  32 


119 
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0001 
0C02 
OC03 
0004 
0005 
0006 
0007 
0008 
0009 
0C10 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
CC30 
0031 
0032 
0033 
OC  34 
0C35 
0036 
0037 
OC  38 
0039 
0040 
0041 
0C42 
0043 
0044 
0045 
00  46 
0047 
0048 
0049 
00  50 
005! 
0052 
0053 
OC  54 
0055 
005  6 
00  5  7 


CPARTliO 

SUBROUTINE  PARTWO 

COMMON  THETA(50I,N,TM(3,3),LPP,LL»PCN0(3,50,2>  ,RB(3,50,2), 

X  PCNTI3,50,2),PCNTR(3,50,2),PCMQ(3,50,2> ,PCMT ( 3 , 5D.2 ) , 

X  PCMTRI 3,5C,2) ,  RC  (  3 , 50 , 2  )  ,  PC T <  3, 50 , 2  ) , RS ( 3,2 ) , RD( 3 , 2 > ,XA t 50 ) 

X  ,Sl 50>,XP< 501 ,YA( 50) ,  YP  l  50  >  ,  C  VS  (  4  ) .CVP14) ,CTS(4) ,NM, 

X  SOL (4, 50«2)«T(50) , S I GMXI 2 ) » S I GMY<  2 ) , I  QUAD (4,50,2) . PRB( 3  »50 ) , 

X  CNO ( 3, 50 ) , CNTR I 3, 50 ) »  CNT( 3,50 ) , PRC ( 3 , 50) ,CT ( 3 , 50 ) , T I TLE ( 10 ) 

X  , JK, Z l 55 ) 

1  READ  (8,2)  KQR.LL.JK.NM 

2  FORMAT  (311,  12) 

C  KQR  =  0  IMPLIES  SUBROUTINE  IS  TO  CONTINUE  READING 

C  KQR  =  1  IMPLIES  RETURN  TO  THE  MAIN  PROGRAM 

C  LL  IMPLIES  CASE  UNDER  CONSIDERATION 

C  FOR  PLATE 

C  IL  =  1  IMPLIES  N 1  NOT  EQUAL  TO  0.0 

C  LL  =  2  IMPLIES  N2  NOT  EQUAL  TO  0.0 

C  LL  =  3  IMPLIES  N6  NOT  EQUAL  TO  0.0 

C  LL  =  4  IMPLIES  Ml  NOT  EOUAL  TO  0.0 

C  LL  =  5  IMPLIES  142  NOT  EQUAL  TO  0.0 

C  LL  =  6  IMPLIES  146  NOT  EQUAL  TO  0.0 

C  FOR  CYLINDER 

C  LL  =  I  IMPLIES  N1  NOT  EOUAL  TO  0.0 

C  LL  =  2  IMPLIES  N6  NOT  EQUAL  TO  0.0 

C  LL  =  3  IMPLIES  2N1  =  N2 

C  JK  =  I  IMPLIES  CASES  N1  OR  Ml 

C  JK  =  2  IMPLIES  CASES  N2  OR  M2 

C  JK  =  6  IMPLIES  CASES  Nfc  OR  M6 

C  NM  =  NO.  OF  INPUT  VALUES  OF  TEMPERATURE 

C  MAXIMUM  VALUE  OF  NM  =  50 

IF  (KQR  .EQ.  1)  GO  TO  10 
READ  (8,6)  (TOO,  K=1,NMI 
READ  (8,7)  IXAIK),  K=1,N) 

READ  (8,7)  ( Y A ( K ) ,  K=1,N) 

READ  (8,7)  IXP(K),  K=1,N) 

READ  (6,7)  ( YP ( K  ) ,  K  =  1,N) 

READ  (8,7)  { S ( K  )  ,  K  =  1,N> 

6  FORMAT  (6F12.6) 

7  FORMAT  (6E12.6) 

READ  18,4)  TITLE 

4  FORMAT! I2A6) 

308  WR I TE ( 5  , 303 ) 

3C3  FORMAT ( 1H1 ,  IX, 1HZ, 3X,22HAX I AL  TENSILE  STRENGTH, 2X.26HAXIAL  COMP 
XRESSIVE  STRENGTH, 3X , 2 7HTR ANSVER SE  TENSILE  STRENGTH ,2X,31HTRANSVERS 
XE  COMPRESSIVE  STRENGTH/1X.4HI I N ) , 9X , 5H< PS  I ) , 22X , 5H ( PS  I ) , 2 3X , 5H ( PS  I 
X ) , 26X, 5H( PS  I  I // ) 

DO  306  K  = 1 » N 

WRITE  15,307)  Z(K),XA(K),XP(K),YA(K),YP(K) 

307  FORMAT ( F8 .4, 3X, E 13. 6 , 12 X, E 1 3 . 6 , 1 6X , E 13. 6, 1 8X , E13 .6 ) 

306  CONTINUE 

WRITE  (5,309)  (S(K),  K  =  1,N» 

309  FORMAT  ( 1H0 , 52X , 14HSHE AR  $ TRENG TH/57X , 5H ( PS  I) // ( 52X ,E1 3 . 6 ) ) 

WRITE  (5,703)  TITLE 

703  FORMAT! 1H1 , 4 7X , 7HC A SE  ,10A6> 

TEMP  =  -.777777776-77 
DO  599  K  =  1 , N 
RM  =  COS  I  THETA! K ) 1 
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0058 
0059 
0060 
0061 
0062 
0C63 
0064 
0G65 
0066 
0067 
0068 
0069 
0070 
00  71 
0072 
0073 
00  74 
00  75 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
00  8  7 
OOB8 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 


RN  =  S I N ( THE  I A  I K  )  ) 

TMIl.l)  =  RMoRM 
T  M  T 1,2)  =  RN«RN 
RPHN  =  RM«RN 
THU,  3)  =  2.0RPMN 
TM { 2 , 1  I  =  TM( 1,2  I 
TMI2.2)  =  TM ( 1 , 1 ) 

T  M ( 2 , 3 )  =  -TM( 1,3) 

T M I  3 , 1 )  =  -RPMN 

THI 3, 2 )  =  RPMN 

TM ( 3 , 3 )  =  TMIl.l)  -  TM ( 1,2) 

IF  IK  .EG.  1)  GO  TO  731 
WRITE  15,733) 

733  FORMAT ( 1H1 ) 

731  WRITE(5,710)  K 

710  FORMAT! /1H0,  52X.9H—  LAYER  ,12,: 
DO  598  J  »  1,2 
IF  (LPP  .EQ.  1)  GO  TO  601 
GO  TO  1601,602,603,604,605,606) 

601  DO  610  I  =  1,3 

610  RB(I,K,J)  =  PCNOt I , K, J ) 

GO  TO  622 

602  DO  612  I  *  1,3 

612  RBI  I , K, J )  =  PCN T( I,K,J) 

GO  TO  622 

603  DO  614  I  =  1,3 

614  R8 ( I , K , J )  =  PCNTR I  I , K, J ) 

GO  TO  622 

604  00  616  I  =  1,3 

616  RBI  I , K, J I  =  PCMOI I , K , J ) 

GO  TO  622 

605  DO  618  I  =  1,3 

618  RB ( I , K , J )  =  PCMTII.K.J) 

GO  TO  622 

606  00  620  I  =  1,3 

620  R  B  (  I ,  l<  »  J  )  -  PCMTRI  I  ,K,J) 

622  DO  624  1  =  1,3 

624  RC 1 1 , K , J )  -  PCT ( I ,K, J ) 

DO  626  I  =  1,3 
RS(I.l)  =  RBI  I , K , J ) 

626  RS(I  ,2)  a,  RC(  I  ,K,J) 

GO  TO  627 

801  IF  (J  .EQ.  2)  GO  TO  598 
GO  TO  (802,804,806),  LL 
B02  DO  810  I  =  1,3 
810  PR8 ( I , K )  =  CNO( I , K ) 

GO  TO  817 

804  00  812  I  =  1,3 
812  PRBI 1 , K )  =  CNTR ( I ,K ) 

GO  TU  017 
806  00  814  I 
814  PR  B (  I , K  ) 

817  00  819  I 
819  PRC ( t,K) 

DO  821  I 

RS ( I , 1 )  =  PRB(I.K) 

821  RS( I , 2 )  =  PRC(I.K) 


1,3 

.5«CN0(I,K) 

1.3 

CT (  I  ,K  ) 

1.3 


—  /> 


LL 
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0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
016  5 
0166 
0167 
0168 
0169 
0170 
0171 


627  CALL  F4MAMU(3,3,2,TH,RS,RD) 

51  -  RD(l,l)»»2 

52  =  RDI 1 , 1 ) *RD I  2 , l ) 

53  *  RD(2,1>**2 

54  *  RD(3,1)**2 

55  *  2.*RD( l,l)«RD{l,Z) 

56  =  RD 11(2) »R0 (2»1)  *  RO { I , 1) »RD I 2 , 2 ) 

57  =  2.*ROI2»l)«RD(2»2) 

58  =  2 . *RD( 3 , 1 ) *RD I  3 , 2 ) 

59  =  RDtl, 21**2 

510  *  RD( 1 , 2 ) «RD( 2,2) 

511  =  RD(2,2)«»2 

512  =  R0(3, 21**2 
Rl  =  XAIKI/YAIK) 

R2  =  XP I K  )  / YA I K  ) 

R3  =  XP(K)/YP(K) 

R4  *  XA(K)/YP(K) 

SO  =  S ( K 1 **2 
YAS  =  YA( K 1**2 

X  AS  =»  X  A 1  K  1 «  *2 
YPS  =  YPIK)**2 
XPS  =  XP ( K 1 • *2 
XY  =  XAt  K ) »YA( K ) 

XPYP  =  X  P ( K 1 *YP 1 K 1 
XYP  =  X Al K ) • YP I K  ) 

XPY  =  XP ( K 1  * YA ( K ) 

CVS(l)  =  Sl/XAS  -S2/(R1»XY)*  S3/YAS  +  S4/SQ 
CVS  C  2 )  *  Sl/XPS  -S2/lft2«XPY)+  S3/YAS  ♦  S4/SQ 
CVS ( 3 1  =  Sl/XPS  -S2/(R3*XPYP 1*  S3/YPS  ♦  S4/S0 
CVS( 4)  *  Sl/XAS  -S2/I R4»XYP 1 ♦  S3/YPS  *  S4/S0 
CVP(1I  =  S5/XAS  -S6/<Rl*XY>+  S7/YAS  +  S8/S0 
CVPI  2 1  =  S5/XPS  -S6/(R2*XPY)+  S7/YAS  +  S8/S0 
CVPt  3 1  =  S5/XPS  -S6/IR3*XPYP)+  S7/YPS  »  S8/S0 
CVP( 4 1  =  S5/XAS  -S6/(R4*XYP)  +  S7/YPS  +  S8/S0 
CTS(l)  =  S9/XAS  -S 10/ ( R 1*  XY ) ♦  Sll/YAS  +  S12/S0 
CTSI21  *  S9/XPS  -S10/(R2*XPY1*  Sll/YAS  +  S12/S0 
CTSI31  a  S9/XPS  -S10/<R3*XPYP1*  Sll/YPS  +  S12/SQ 
CTS ( 4  1  =  S9/XAS  -S10/ I R4*  X YP )  +  Sll/YPS  *  S12/S0 
00  640  I  *  1,4 
DO  640  JL  =  It NM 

DISC  =(CVPm*T«  JL  I  )®*2  -  4.*CVSin«(CTSm*T(JL»**2  -  1.1 
634  IF  (DISC  .LT.  0.0)  GO  TO  636 

SOLII.JLfl)  =  (-CVPII  )*T{  JLI  ♦  SORT(DISC)  )/!2.*CVSm  1 
SOL  (  I «  JL  r  2  )  =  (-CVPU  )*T(JL)  -  SORT  1 01  SC  )  1  /  ( 2.  *CVS(I)  1 
GO  TO  639 

636  SOLI  I.JLt 1)  -  TEMP 
SOLI  I, JL*2)  =  TEMP 
639  DD  640  IL  =  1,2 

SICMXIIL)  =  RD(1,1)*S0LII,JL,IL)  *  RD  ( 1  ,2  1  *  T I  JL  1 
SIGMY(IL)  =  RD(2,1)*S0L( tfJLfTL)  +  RD (2 ,2 1 *T I JL 1 
IF  (SIGMX(IL)  .GE.  0.0  .AND.  SIGMYIIL)  .GE.  0.0)  GO  TO  642 

IF  (SIGMX(IL)  .LT.  0.0  .AND.  SIGMYIIL)  .GT.  0.0)  GO  TO  644 

IF  (SIGMX(IL)  .LT.  0.0  .AND.  SIGMYIIL)  .LT.  0.0)  GO  TO  646 

IOUADI I, JL, IL)  =  4 
GO  TO  640 

642  IOUADI I, JL, IL)  =  1 
GO  TO  640 
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0172  644  IQUAOt I , JL, I L I  =  2 

0173  GO  TO  640 

0174  646  IOUADI l.JL.IL)  =  3 

0175  640  CONTINUE 

0176  IF  IJ  .EQ.  2)  GO  TO  711 

0177  IF  ILPP  .EO.  1)  GO  TO  715 

0178  WRITE  15,712)  2IK) 

0179  712  FORM AT  I 4X , 4H2  =  ,F8.4) 

0180  GO  TO  715 

0181  711  WRITE  (5,713)  ZIK+1) 

0182  713  FORMAT! 1H1,3X,4H2  =  ,F8.4) 

0183  715  DO  717  I  =  1,4 

0184  IF  ILPP  .EQ.  1)  GO  TO  719 

0185  IF  ILL  .GT.  3)  GO  TO  721 

0186  719  WRITE  (5,720)  I , CVS  II) , JK ,CVPI I  ) , JK ,CTS I  I > 

0187  720  FORMAT! 1H0, 54X , 9HQUADR ANT  ,11// 

0188  X  26X,E13.6,2H»N,I1,4H*«2  ,  E13.6,2H*N,ll,3H*T  ,  E13.6 

0189  X  1 3H*T**2  -  1  =  0//) 

0190  GO  TO  723 

0191  721  WRITE  (5,725)  I .CVS  I  I) , JK ,CVP (I) , JK ,CTS (I) 

0192  725  FORMAT! 1H0, 54X, 9HQUA0RANT  ,11// 

0193  X  26X,E13.6,2H*M, 1 1 , 4H* * 2  ,  El 3 .6 , 2H* M , 1 1 , 3H*T  ,  E13.6 

0194  X  13H*T**2  -  1  =  C//> 

0195  723  WRITEI5.727) 

0196  727  FORMATI9X,11HTEMPERATURE,13X,10HSOLUTION  1 , 8X, 8 H QUADRANT ,7X, 

0197  X  10HS0LUTI0N  2  »8X, BHQUADRANT/ 

0198  X  10X , BH I  DEG.  F ) // ) 

0199  DO  718  JL  =  1 r NM 

0200  WRITE!  5,729) T I JL ), SOLI  I , JL, 1 ) , I  QUAD  I  I , JL ,1  I , SOL  I  I , JL ,2 ) , 

0201  X  IOUADI I, JL, 2) 

0202  729  FORMAT (11X,F7.1,13X,£13.6,10X,I1,  9X, E 1 3.6, 10X , I  1 ) 

0203  718  CONTINUE 

0204  717  CONTINUE 

0205  598  CONTINUE 

0206  599  CONTINUE 

0207  GO  TO  1 

0208  10  RETURN 

0209  END 


ANGLE-PLY  THETA  =  15.00  DEGREES  ALL  LAYERS  INTACT 
2  LAYERS  IN  =  2 1 


LAYER 

NO. 

THICKNESS 
OF  LAYERS 

I  INCHES) 

COORDINATES  OF 
LAYER  SURFACES 

I  INCHES) 

COEFS.  OF 
(  10+6 

STIFFNESS  MATRIX 
LO./IN.SO.) 

COEFS.  OF 
(  10-6 

THERMAL  EXPANSION 
IN. /IN. /DEG. F.  > 

K 

HIK) 

ZIK)  Z I K  + 1 ) 

C(l.l) 

C (  1*21  C ( 2 i 

,2)  CI6.1)  CI6,2) 

C  1 6  f  6 )  ALPHA! 1 ) 

ALPHAI2)  ALPHAI 6 ) 

l 


0.5000  -0.5000 

0.5000  -0 .0000 


-0.0000  7.3420 

0.5000  7.3420 


0.9320  2.7430 

0.9320  2.7430 


-1.1290  -0.1993 

1.1290  0.1993 


1.5190  4.0292 

1.5190  4.0292 


10.8700  1.9750 

10.8700  -1.9750 


A 

(10+6  LO./IN.I 

A  + 

(10-6  IN. /LB. 

,  ) 

A 

(10-6 

PRIME 
.  IN. /lb.; 

COEF.  OF  THERMAL  FORCE 
( LB./IN. /OEG.F . ) 

7.3420 

0.9320 

0. 

0.9320 

2.7430 

0. 

0. 

0. 

1.5190 

0.1423  -0.0484 

-0.0484  0.3010 

0.  0. 

0. 

0. 

0.6583 

0.1547  -0.0466 
-0.0466  0.3812 
-0.0000  -0.0000 

-0.0000 

-0.0000 

0.7205 

Nl-T 

N2-T 

N3-T 

37.4835 

33.1780 

0. 

8 

110+6  IN.) 

( 10+0  IN.) 

B 

(10- 

PRIME 
-6  1/LB.) 

COEF.  OF 
(LB. 

THERMAL  MOMENT 
./OEG.F.) 

-0.0000 

-0.0000 

0.2822 

-0.0000 

-0.0000 

0.0498 

0.2822 

0.0498 

-0.0000 

0.0000  0.0000 

-0.0000  0.0000 

-0.1858  -0.0328 

-0.0378 

-0.0053 

0.0000 

0.0000 

-0.0000 

-0.3265 

-0.0000 

D. 0000 
-0.0461 

-0.3265 

-0.0461 

0.0000 

Ml-T 

M2-T 

M3-T 

-0.0000 

-0.0000 

0.9288 

Ho 

(10+0  IN.) 

-0.0000  0.0000 

-0.0000  -0.0000 
0.0370  0.0053 

0.1858 

0.0328 

-0.0000 

0 

(10+6  L8.IN.) 

D« 

( 10+6  LB. IN. 

) 

D 

110-6 

PRIME 
1/LB. IN. 

) 

0.6118 

0.0777 

-0.0000 

0.0777 

0.2286 

-0.0000 

-0.0000 

-0.0000 

0.1266 

0.5594  0.0684 

0.0604  0.2269 

-0.0000  -0.0000 

-0.0000 

-0.0000 

0.1157 

1.8561 

-0.5595 

0.0000 

-0.5595 

4.5749 

0.0000 

0.0000 

0.0000 

8.6462 

STRESS  COEF.  OF  Nl  COEF.  OF  N2 

COMPONENT  (1/IN.)  (1/IN.) 

COEF.  OF  N6 
(1/IN.) 

COEF.  OF 
(LB. /IN. 

TEMP. 

SO./F.) 

—  LAYER 

1  — 

SIGMA 

1  1.0000 

2  -0.0000 

6  -0.1511 

-0.0000 
1.0000 
-0.0213 
—  LAYER 

-0.7433 

-0.1312 

1.0000 

2  — 

0. 

0. 

-2.6548 

SIGMA 

1  1.0000 

2  -0.0000 

6  0.1511 

-0.0000 

1.0000 

0.0213 

0.7433 

0.1312 

1.0000 

0. 

0. 

2.6546 

Z  AXIAL 

(  IN) 

TENSILE  STRENGTH 
(PSI) 

AXIAL  COMPRESSIVE  STRENGTH 
(PSI  ) 

TRANSVERSE  TENSILE  STRENGTH 
(PSD 

TRANSVERSE  COMPRESSIVE  STRENGTH 
(PSI) 

-0.5000 

-0.0000 

0.150000+006 

0.150000+006 

0.150000+006 

0.150000+006 

0.120000+005 

0.120000+005 

0.200000+005 

0.200000+005 

SHEAR  STRENGTH 
IPS!  ) 


0.100000+005 

0.100000+005 


CASE  Nl  NOT  EQUAL  TO  0.0 


—  LAYER  1  — 


QUADRANT  1 


0. 1 88 1 20-00 9 loo 2  -0.514332-008*N1  »T  0.652518-007»T»<*2  -1  =  0 


TEMPERATURE 
(DEG.  F) 

SOLUTION  1 

QUADRANT 

SOLUTION  2 

QUADRANT 

-400.0 

0.672653+005 

4 

-0.782016+005 

2 

-200.0 

0.701312+005 

4 

-0.755994+005 

2 

-100.0 

0.715312+005 

4 

-0.742653+005 

2 

0. 

0.729092+005 

4 

-0.729092+005 

2 

200.0 

0.755994+005 

4 

-0.701312+005 

2 

400.0 

0.782016+005 

4 

-0.672653+005 

2 

QUADRANT  2 


G.18B120-009°Nl+o2  -0.514332-008<>NloT  0.652518-007»T»«2  -1  =  0 


TEMPERATURE 
(DEG.  F) 


SOLUTION  1 


QUADRANT 


SOLUTION  2 


QUADRANT 


-400.0 
-200.0 
-100. 0 

0. 

200.0 

400.0 


0.672653+005  4 
0.701312+005  4 
0.715312+005  4 
0.729092+005  4 
0.755994+005  4 
0.782016+005  4 


-0.782016+005  2 
-0. 755994+005  2 
-0.742653+005  2 
-0.729092+C05  2 
-0.701312+005  2 
-0.672653+005  2 


QUADRANT  3 


0.187796-009<>Nio°2  -0.524414-008+N1+T  0. 574208-007+T++2  -1  =  0 


TEMPERATURE 

SOLUTION  1 

QUADRANT 

SOLUTION  2 

QUADRANT 

(DEG.  F) 

-400.0 

0.672656+005 

4 

-0.704355+005 

2 

-200.0 

0.7D1493+005 

4 

-0.757343+005 

2 

-100. 0 

0.715683+005 

4 

-0.743608+005 

2 

0. 

0.729722+005 

4 

-0.729722+005 

2 

2C0.0 

0.757343+005 

4 

-O.7O1493+0D5 

2 

400.0 

0.784355+005 

4 

-0.672656+005 

2 

0.1677 96-009oNl+»2 

QUADRANT  4 

-0.52441 4-00 8°NloT  0. 574208-007+T++2 

-1  =  0 

TEMPERATURE 

SOLUTION  1 

QUADRANT 

SOLUTION  2 

QUADRANT 

(DEG.  F) 

-400. 0 

0.672656+005 

4 

-0.784355+005 

2 

-200.0 

0.701493+005 

4 

-0.757343+005 

2 

-100.0 

0.715683+005 

4 

-0. 743608+005 

2 

0. 

0.729722+005 

4 

-0.729722+005 

2 

200.0 

0.757343+005 

4 

-0.701493+005 

2 

400.0 

0.784355+005 

4 

-0.672656+005 

2 

—  LAYER  2  — 
QUADRANT  1 


0.188120-009oNlo(»2  -0.514332-OOB+NW  0.652518-007*T»*2  -1  =  0 


TEMPERATURE 
(DEG.  F) 


SOLUTION 


QUADRANT  SOLUTION  2 


QUADRANT 


-400.0 

-200.0 

-100.0 

0. 

200.0 

400.0 


0.672653+005  4 
0.701312+005  4 
0.715312+005  4 
0.729092+005  4 
0.755994+005  4 
0.782016+005  4 


-0.782016+005  2 
-0.755994+005  2 
-0.742653+005  2 
-0.729092+005  2 
-0.701312+005  2 
-0.672653+005  2 


QUADRANT  2 


0.1881 20 -009 »Nl»o2  -0. 514332-008»N1 oT  0.652518-007»T»«2  -1=0 


TEMPERATURE 
IDEG.  F) 


SOLUTION  1 


QUADRANT 


SOLUTION  2 


QUADRANT 


-4CO.O 

-200.0 

-100.0 

0. 

200.0 
400. 0 


0.672653+005  4 
0.701312+005  4 
0.715312+005  4 
0.729092+005  4 
0.755994+005  4 
0.782016+005  4 


-0.782016+005  2 
-0. 755994+005  2 
-0.742653+005  2 
-0.729092+005  2 
-0.701312+005  2 
-0.672653+005  2 


QUADRANT  3 


0. 187 796-00 9»N1  + +  2  -0. 524414-008+N1  »T  0.574208-007*T  +  «2  -1  =  0 


TEMPERATURE 

SOLUTION  1 

QUADRANT 

SOLUTION  2 

QUADRANT 

(DEG.  F ) 

-400.0 

0.672656+005 

4 

-0.784355+005 

2 

-200.0 

0 . 7C 1493+005 

4 

-0.757343+005 

2 

-100.0 

0.715683+005 

4 

-0.743608+005 

2 

0. 

0.729722+005 

4 

-0.729722+005 

2 

200.0 

0.757343+005 

4 

-0.701493+005 

2 

400.0 

0.784355+005 

4 

-0.672656+005 

2 

0.187796-009°Nl°o2 

QUADRANT  4 

-0. 52441 4-00 8+N1+T  0. 574208-007* To*2 

-1=0 

TEMPERATURE 

SOLUTION  1 

QUADRANT 

SOLUTION  2 

QUAORANT 

(DEG.  F) 

-400.0 

0.672656+005 

4 

-0.784355+005 

2 

-200.0 

0.701493+005 

4 

-0.757343+005 

2 

-100.0 

0.715683+005 

4 

-0.743608+005 

2 

0. 

0.729722+005 

4 

-0.729722+005 

2 

200.0 

0.757343+005 

4 

-0.701493+005 

2 

400.0 

0.784355+005 

4 

-0.672656+C05 

2 

APPENDIX  B 


A  RELAXATION  METHOD  OF  SOLUTION  OF  THE  LONGITUDINAL 
SHEAR  PROBLEM  FOR  A  DOUBLY  PERIODIC  RECTANGULAR  ARRAY 
OF  ELASTIC  INCLUSIONS  IN  AN  INFINITE  ELASTIC  BODY 

B.  1  INTRODUCTION 

The  solution  of  the  problem  outlined  in  Section  3  has  been  formulated 
using  a  finite  difference  representation  and  a  numerical  relaxation  procedure 
designed  for  high-speed  digital  computer  operation.  The  finite  difference 
approximations  of  the  partial  derivatives  contained  in  Equations  (55)  and  (56) 
make  use  of  irregular  grid  spacings  in  both  coordinate  directions,  as  indi¬ 
cated  in  Figure  B-l.  This  is  an  important  feature  of  the  solution  in  that  it 
permits  the  use  of  close  grid  spacings  in  regions  where  it  is  desired  to 
determine  stresses  very  accurately,  e.g.,  in  areas  of  high  stress  concen¬ 
tration  where  stress  gradients  are  very  high,  while  permitting  a  coarser 
spacing  in  less  critical  regions.  This  permits  a  given  degree  of  accuracy 
with  a  minimum  amount  of  numerical  computation  and  computer  storage 
capacity. 

The  matrix-inclusion  interface  is  located  in  the  grid  array  in  the 
following  manner.  If  a  grid  line  in  the  y-direction  intersects  the  matrix- 
inclusion  interface  at  a  given  point,  then  there  must  be  a  corresponding  grid 
line  in  the  x-direction  which  also  intersects  the  interface  at  the  same  point, 
i.  e.  ,  the  intersection  point  is  a  grid  node  lying  on  the  interface. 
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B.2  FINITE  DIFFERENCE,  REPRESENTATIONS 

The  finite  difference  representations  of  the  partial  derivatives  are  of 
the  following  forms: 

(1)  First  Irregular  Central  Differences. 


ai  a3  {al  +  a3‘ 


r  2  .2 

|_a 3  Wi+ 1 ,  j  +  <al  - 


2, 

aj  w.  . 
3  !>  J 


a,  w. 
1  i 


i-l,  jj 


a2  a4  <a2  +  a4‘ 


r 2 

La4wi,jtl  + 


4.  /  z  2X 

+  (a2  -  a4  Wi,  j 


a~  w.  . 
2  i,  l 


i>  j  - 


(2)  Second  Irregular  Central  Differences 


dx2  .  .  ai  a3  (al  +  a3 
J 


fa3  wi+l,  j  -  (al 


+  a,)  w.  .  +  a,  w. 
3  i,  j  1  i 


-■J 


ay2  '  a2  a4  <a2  +  a4‘ 

X>  J 


[a4Wi,jtl 


(a7  +  a A)  w.  .  +  a~  w. 
2  4  i3  j  2  i 


i.  j  -  3J 


(3)  First  Irregular  Forward  Differences. 


2  2, 


al  a9  (a9  "  ap 


-  (a9  '  al)wi,j  +  a9  Wi+i,  j  -  al  wi+2; 


^10  <ai0  '  a2>  ['  ^  +  ^0  wi,  i+l 


i.  j+2J 


(4)  First  Irregular  Backward  Differences. 


(Continued  on  next  page) 
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dw 

"Sx" 


i»  j 


dw 

dy” 


i*  j 


a3  all  *all  '  a3^ 


k.  - 


2, 

a3>  j 


a4  a12 


/  2  2. 

(a,,  -  a.)  w.  . 


<a12~a4U  12  4  i>j 


2  ,  2  1 
all  Wi-l,j  +  a3  Wi-2,  jj 

2  .  2  "I 

a12wi,j-l+  a4wi,j-2j 


The  terms  a:  through  a12  represent  distances  measured  from  the  point  (i,  j) 
at  which  the  difference  form  is  being  expressed  (point  0  in  Figure  B-2  to 
surrounding  points  (numbered  1  through  12  in  Figure  B-2).  Node  points 
5  through  8  are  not  actually  used  in  the  longitudinal  shear  problem,  since 
they  are  associated  with  partial  derivatives  of  the  form  d  /dxdy  which  do  not 
appear  in  the  formulation.  The  subscripts  on  each  displacement  term,  w, 
identify  the  grid  coordinates  of  that  displacement  in  terms  of  the  point  (i,  j). 


Figure  B-2 .  Node  Identification  Numbering  System 
B.  3  NUMERICAL  PROCEDURE 


Central  differences  are  used  in  representing  the  equilibrium  equation, 
Equation  (56).  In  representing  the  boundary  condition  equations, 

Equations  (58)  and  (60),  and  the  interface  continuity  equation,  Equation  (63), 
it  becomes  necessary  to  use  either  forward  or  backward  differences  in  order 
to  remain  within  the  first  quadrant  of  the  fundamental  region. 


The  fundamental  region  is  bounded  by  the  grid  lines  3  <  i  <  m, 

3  <  j  <  n  (see  Figure  B-l).  The  computer  storage  array  is  bounded  by  the 
grid  lines  1  <  i  <  m  +  2,  1  <  j  <  n  +  2,  the  two  additional  grid  lines 
exterior  to  each  side  of  the  fundamental  region  being  used  only  for  indexing 
purposes  in  the  program. 
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The  maximum  total  grid  array  size  has  been  established  as  33  x  33 
and  the  minimum  total  grid  array  size  must  be  9  x  9.  Thus,  if  the  total  grid 
array  size  is  (M  +  2)  x  (N  +  2),  i.  e.  ,  an  array  with  M  +  2  grid  lines 
parallel  to  the  y-axis  and  N  +  2  grid  lines  parallel  to  the  x-axis,  where 

9  <  (M  +  2)  <  33,  9  <  (N  +  2)  <  33,  then  the  usable  grid  node  array  size  is 
(M-2)  x  (N-2)  because  of  the  indexing  grid  lines  exterior  to  the  fundamental 
region. 


For  a  maximum  total  grid  array  size  of  33  x  33,  the  usable  grid  array 
size  is  therefore  29  x  29,  and  for  a  minimum  total  grid  array  size  of  9  x  9, 
the  usable  grid  array  size  is  5  x  5. 

The  main  control  program  LONGSHEAR  begins  by  reading  the  input 
data  from  the  punched  data  cards.  The  program  first  reads  and  stores  the 
physical  aspects  of  the  problem  including  grid  node  array  spacing,  location 
of  nodes  which  lie  on  the  inclusion  interface,  the  sine  and  cosine  of  the  angle 
which  the  normal  to  the  interface  at  each  interface  node  makes  with  the 
x  axis  and  the  material  properties  of  the  inclusion  and  matrix.  Next  a  code 
number  (MFI)  is  given  to  each  node  which  identifies  it  as  being  located  either 
in  the  matrix  (MFI=1),  in  the  fiber  (MFI=2)  or  on  the  interface  (MFI=3).  An¬ 
other  code  (KNT)  is  assigned  to  each  node  indicating  the  type  of  equation  to 
be  satisfied  at  that  node,  i.  e.  (equilibrium,  interface  continuity,  or  bound¬ 
ary)  and  also  the  difference  representation  used  for  that  equation,  i.  e.  ,  for¬ 
ward,  central,  or  backward.  There  are  a  total  of  17  different  node  types. 

With  this  information,  the  program  generates  the  coefficients  of  the 
difference  representations  of  the  equilibrium,  interface,  and  boundary 
equations.  The  coefficients  for  the  interior  equilibrium  nodes  are  stored  in 
the  two-dimensional  (33,  33)  arrays  El  through  E5.  The  interface  coeffi¬ 
cients  are  stored  in  the  single  subscript  (70)  arrays  Cl  through  C29  and  the 
boundary  coefficients  are  stored  in  the  single  subscript  (35)  arrays  Dl 
through  D12. 
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All  of  the  coefficients  for  each  node  equation  are  stored  in  the 
computer  core,  thus  eliminating  time  consuming  recalculation  or  tape  access 
during  the  solution  process. 

The  remainder  of  the  main  program  logic  controls  the  flow  between 
subroutines  to  affect  the  desired  solution. 

B.  4  SUPPORTING  SUBROUTINES 

B.4.  1  SUBROUTINE  RSDLS 

This  subroutine  calculates  a  residual  at  each  grid  node  using  the 
existing  displacement  field  and  the  difference  representation  of  the  appro¬ 
priate  equation  at  each  grid  node. 

RSDLS  will  be  entered  NRD  times,  calculating  a  new  residual  at  each 
grid  node,  using  the  displacement  field  obtained  from  subroutine  RLXLS  (or 
the  specified  input  displacements  when  RSDLS  is  entered  the  first  time).  The 
displacements  existing  at  each  grid  node  and  its  surrounding  nodes  are  put 
into  the  appropriate  equation  for  that  node  and  a  residual  is  computed  which 
represents  the  extent  to  which  the  existing  displacements  do  not  satisfy  the 
equation.  In  the  first  entry  to  RSDLS  at  the  beginning  of  the  problem,  the 
only  displacements  existing  are  the  unit  displacements  along  one  boundary, 
all  other  displacements  being  set  equal  to  zero.  The  result  is  that  the 
equations  are  trivially  satisfied  at  each  grid  node  except  the  first  row  in  from 
the  displaced  boundary  where  residuals  are  calculated.  These  residuals 
create  residuals  at  surrounding  nodes  during  the  solution  process  and  thus 
propagate  the  boundary  displacement  throughout  the  array. 

B.  4.  2  SUBROUTINE  RLXLS 

Subroutine  RLXLS  employs  a  systematic  relaxation  procedure 
(successive  overrelaxation)  on  the  residuals  in  the  grid  node  array  to  arrive 
at  a  set  of  displacements  which  are  a  solution  of  the  difference  equations. 
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This  subroutine  is  the  portion  of  the  program  which  solves  the  set  of  equa¬ 
tions  representing  the  problem,  and  as  such  is  the  key  element  in  the  relax¬ 
ation  technique. 

Indexing  from  node  to  node  begins  in  the  row  adjacent  to  the  displaced 
boundary  and  progresses  toward  the  interior  of  the  fundamental  region.  This 
is  done  to  transmit  the  boundary  displacement  most  rapidly  to  the  other 
nodes.  At  each  node,  the  KNT  code  is  tested  to  determine  the  type  of  equa¬ 
tion  to  be  satisfied  at  that  node.  The  coefficient  in  the  difference  equation 
for  the  node  multiplying  the  displacement  at  that  node  is  placed  in  CAT. 

The  residual  existing  at  each  node  represents  the  extent  to  which  the 
difference  equation  is  not  yet  satisfied  at  that  node  and  this  error  is  arbi¬ 
trarily  assumed  to  be  entirely  caused  by  an  error  in  displacement  at  that 
node.  A  change  in  displacement  can  be  calculated  which  will  cause  the 
residual  at  the  grid  node  to  be  reduced  to  zero,  thus  satisfying  the  equation 
at  that  node.  Actually,  the  change  in  displacement  is  further  increased  by 
multiplying  it  by  a  factor  OMB,  in  effect  "overrelaxing"  the  residual.  In 
theory,  *  the  value  of  OMB  can  vary  from  0<  OMB<  2.  The  case  of  OMB  <  1 
is  termed  underrelaxation  and  OMB>  1  is  overrelaxation. 

An  optimum  value  of  the  relaxation  factor  OMB  has  been  found  to  be 
about  1.75  for  the  present  solution. 

After  computing  the  desired  displacement  change  at  the  node  and 
actually  changing  the  displacement  value,  the  program  indexes  to  the  eight 
surrounding  nodes  (see  Figure  B-2).  The  residual  at  each  of  these  nodes  is 
changed  in  proportion  to  the  influence  of  the  changed  displacement  on  the 
equation  at  the  node  point.  This  amount  is  the  ratio  of  the  coefficient  of  the 
changed  displacement  to  the  coefficient  stored  in  CAT.  This  process  is 

*Young,  David,  "Iterative  Methods  for  Solving  Partial  Difference  Equations 
of  Elliptic  Type,  "  Transactions  of  the  American  Mathematical  Society, 

Vol  76,  pp  92-111,  January-June  1954. 
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repeated  many  times  throughout  the  array  until  the  residual  at  each  node  is 
reduced  to  a  value  small  enough  such  that  subsequent  relaxations  would  no 
longer  induce  a  significant  change  in  displacement  at  any  grid  node. 

At  the  grid  nodes  interior  to  the  inclusion  and  lying  on  the  x  =  0  or 
y  =  0  boundaries,  (IMMl,  3)  and  (3,  INMl),  a  forward  difference  cannot  be 

taken  which  will  always  have  all  three  points  interior  to  the  inclusion.  For 
this  reason,  the  usual  relaxation  procedure  has  been  replaced  with  an 
interpolation -relaxation  scheme  at  these  points.  At  the  end  of  each  relax¬ 
ation  cycle,  the  displacement  at  these  two  points  is  calculated  using  a 
Fortran  Function  Subroutine  AINTPL.  This  library  subroutine  uses  all  of 
the  displacements  along  the  boundary  interior  to  the  inclusion  and  by  the 
method  of  Lagrangian  interpolation,  which  can  accommodate  the  irregular 
grid  spacing,  computes  a  new  value  for  the  displacement.  The  difference 
between  this  new  displacement  and  the  previous  one  is  then  used  to  relax  the 
residuals  at  all  affected  surrounding  grid  nodes.  Using  this  method,  the 
final  displacement  value  is  the  result  of  interaction  with  surrounding  nodes 
and  not  the  result  of  interpolation  alone.  This  library  subroutine  can  be 
easily  replaced  with  any  Lagrangian  interpolation  scheme  desired  if  AINTPL 
is  not  available. 

Two  exits  are  possible  from  Subroutine  RLXLS.  At  the  beginning  of 
each  relax  cycle,  the  total  number  of  cycles  already  executed  is  compared  to 
the  input  value  of  NRX.  When  these  are  equal,  control  returns  to  the  main 
program.  At  the  end  of  each  relaxation  cycle,  the  total  number  of  cycles 
already  executed  is  compared  to  the  input  value  of  NRXBT,  which  is  the 
number  of  relaxation  cycles  to  be  executed  before  testing  the  stresses  at 
selected  test  points.  When  the  number  of  relaxation  cycles  exceeds  NRXBT, 
the  stresses  TZX  and  TZY  are  calculated  at  the  specified  test  points  and 
compared  with  the  stresses  existing  at  the  end  of  the  previous  relaxation 
cycle.  If  the  sum  of  the  squares  of  these  stresses  at  all  test  points  has 
changed  by  an  amount  less  than  a  specified  percentage,  read  in  as  PCGPRX, 
then  control  returns  to  the  main  program. 
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Printed  output  from  Subroutine  RLXLS  consists  of  an  I  and  J  node 
index,  displacement  and  residual  for  each  node  point  in  the  array.  Printout 
occurs  for  the  first  (NCPRLX)  number  of  consecutive  relaxation  cycles 
following  an  exit  from  Subroutine  RSDLS  and  every  (NPRLX)  multiple  cycle 
thereafter.  Printout  will  also  occur  for  the  last  relaxation  cycle  executed 
when  exit  from  RLXLS  is  a  result  of  satisfying  the  condition  of  minimum 
change  in  stress  at  the  test  points.  At  the  end  of  each  printout,  a  record  of 
the  number  of  test  points  which  have  not  yet  satisfied  the  percentage  change 
in  stress  condition,  since  testing  began,  is  given. 

R.  4.  3  SUBROUTINE  STRLS 

Subroutine  STRLS  is  entered  after  Subroutines  RSDLS  and  RLXLS 
have  been  executed  the  specified  number  of  times.  STRLS  then  calculates  the 
average  shear  stress  existing  along  the  boundary  having  the  specified  unit 
displacement.  An  effective  composite  shear  modulus  is  calculated  by  multi- 
plying  the  average  shear  stress  by  the  proper  quadrant  dimension  and 
dividing  this  product  by  the  unit  displacement.  Each  displacement  in  the 
array  is  then  multiplied  by  the  ratio  of  the  average  shear  stress  desired  to 
the  average  shear  stress  developed.  This  yields  the  desired  displacement 
field. 


Using  this  displacement  field,  Subroutine  STRLS  then  calculates  the 

shear  stresses  T  and  T  and  the  shear  stress  resultant  T  = 

?  1/?  zx  zy  ZXY 

(t  +  T  )  '  at  each  node  of  the  grid  array.  These  are  printed  along  with 
x  zx  zy' 

the  identifying  I  and  J  indices  and  the  displacements. 


At  each  interface  node,  where  stresses  can  be  calculated  both  in  the 
inclusion  and  in  the  matrix,  a  zero  is  printed.  The  interface  stresses  are 
then  printed  on  a  separate  page  along  with  the  effective  composite  shear 
modulus.  The  inclusion  shear  stresses,  T %yi  at  L  =  1  and  T ^  at  L  =  NL, 

cannot  be  calculated  and  are  printed  as  zero. 
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B.  5  INPUT  PARAMETER  DEFINITION 


Parameter 

TITLE 

M 

N 

NRX 

NRD 

IM 

IN 

NPRLX 


Definition 

TITLE  is  an  alphanumeric  description 
of  the  particular  problem  under  consider 
ation  (up  to  72  characters). 

M  and  N  identify  the  boundaries  of  the 
fundamental  region  (see  Figure  B-l). 

NRX  is  the  maximum  number  of  times 
the  program  will  execute  Subroutine 
RLXLS  between  successive  returns  to 
Subroutine  RSDLS. 

NRD  is  the  number  of  times  the  program 
will  enter  Subroutine  RSDLS. 

IM  is  the  number  of  the  I  coordinate  grid 
line  at  which  the  inclusion  crosses  the 
x-axis,  i.  e.  ,  at  grid  node  (IM,  3).  Grid 
nodes  are  indexed  in  the  program  as 

(I,  J). 

IN  is  the  number  of  the  J  coordinate  grid 
line  at  which  the  inclusion  crosses  the 
y-axis,  i.  e.  ,  at  grid  node  (3,  IN). 

NPRLX  is  an  integer  indicating  that  sub¬ 
routine  RLXLS  will  be  printed  at  every 
integral  multiple  of  NPRLX. 
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Parameter 


NCPRLX 


NL 


NMFI 


Definition 


NCPRLX  is  an  integer  which  indicates 
the  number  of  consecutive  outputs  of  the 
results  of  Subroutine  RLXLS  to  be 
printed,  beginning  with  the  first  entry  to 
RLXLS,  i.e.  ,  the  first  NCPRLX  outputs 
of  Subroutine  RLXTS  will  be  printed. 

NL  is  the  number  of  grid  nodes  lying  on 
the  inclusion  interface  and  includes  the 
grid  nodes  referenced  in  the  definitions  of 
IM  and  IN  (see  Figure  B-l). 

Construct  a  line  perpendicular  to  the 
y-axis  and  passing  through  the  grid  node 
referenced  in  the  definition  of  IN  and  an¬ 
other  line  perpendicular  to  the  x-axis  and 
passing  through  the  grid  node  referenced 
in  the  definition  of  IM.  These  lines  will 
intersect  at  some  grid  node  (c,  d). 

NMFI  is  the  number  of  grid  nodes  con¬ 
tained  in  the  region  exterior  to  the  inclu¬ 
sion  and  its  interface  node  points,  but 
lying  on  or  within  the  lines  constructed 
through  point  (c,  d). 

Note:  The  grid  nodes  referenced  in  the  defini¬ 
tions  of  IM  and  IN  are  not  included  in  the 
above  sum. 


Parameter 


Definition 


NKPROB 


NTP 


NRXBT 


Example:  NMFI  =  10 


EXAMPLE:  NMFI  =  10 


y 


NKPROB  =  1  indicates  that  Problem  1 

only  is  to  be  solved. 

NKPROB  =  2  indicates  that  Problem  2 
only  is  to  be  solved. 
NKPROB  =  3  indicates  that  both 

Problems  1  and  2  are  to  be 
solved  (combined  loading). 

NTP  is  the  number  of  test  points 
(1  <  NTP  <  10). 

Note:  Choose  as  test  points  only  those  grid 
nodes  which  are  interior  to  the 
matrix. 

NRXBT  is  the  number  of  times  the  program 
will  execute  the  Subroutine  RLXLS  before 
testing  the  selected  test  points. 


Definition 


Parameter 


KSYM 


MATRIX  IJTP 


PCGPRX 


MATRIX  HX 


MATRIX  HY 


GF 


GM 


KSYM  =  0  indicates  an  unsymmetrical 
inclusion  or  inclusion  spacing.  An  inclu¬ 
sion  is  unsymmetrical  if,  when  rotated 
90  degrees  about  its  longitudinal  axis,  the 
transformed  inclusion  does  not  occupy  the 
same  space  as  the  original  inclusion. 

KSYM  =  1  indicates  that  both  inclusion 

and  spacing  are  symmetrical. 

Matrix  IJTP  contains  the  coordinates  of 
the  test  points  used  in  testing  the  percent 
change  of  stress  per  relax. 

IJTP  (2N-1)  =  I  coordinate  and 

IJTP  (2N)  =  J  coordinate  of  the  Nth 

test  point. 

PCGPRX  is  the  maximum  percent  change  in 
stress  allowed  at  any  of  the  test  points,  per 
relax,  before  exiting  from  Subroutine 
RLXLS. 

HX(I)  is  the  absolute  value  of  the  distance 
between  grid  lines  I  and  1+1. 

HY(J)  is  the  absolute  value  of  the  distance 
between  grid  lines  J  and  J+  1. 

GF  is  the  shear  modulus,  G^  ,  of  the  fiber 
(lb /in.  2). 

GM  is  the  shear  modulus,  G  ,  of  the 

2  m 
matrix  (lb /in.  ). 
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Parameter 


Definition 


OMB 


VF 


MATRICES 


OMB  is  the  relaxation  factor  to  be  used. 

0  <  OMB  <  2,  with  optimum  convergence 
usually  being  obtained  for  OMB  near  1.7. 

VF  is  the  percent  fiber  content  by  volume 
of  the  composite. 

Note:  VF  is  input  for  printout  purposes 
only  and  is  not  used  in  the 
calculations. 

LI,  LJ  Associated  with  each  grid  node  on  the  inter¬ 

face  of  the  inclusion  is  an  L  number.  The 
grid  node  referenced  in  the  definition  of  IN 
has  an  L  number  equal  to  1,  i.  e.  ,  L  =  1. 

Proceeding  clockwise  along  the  interface 
the  next  grid  node  has  an  L  number  equal 
to  2,  i.  e.  ,  L  -  2.  Continuing  as  de¬ 
scribed  above  implies  that  the  grid  node 
referenced  in  the  definition  of  IM  has  an 
L  number  equal  to  NL,  i.  e.  ,  L  =  NL, 

Matrices  LI  and  LJ  contain  the  I  and  J 
coordinates  respectively,  of  the  grid  nodes 
on  the  interface  of  the  inclusion  where  LI(N) 
is  the  I  coordinate  and  LJ(N)  is  the  J 
coordinate  of  that  grid  node  whose  L 
number  is  equal  to  N,  i.  e.  ,  L  =  N. 
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Parameter 


Definition 


MATRICES  COST,  SINT  Matrices  COST  and  SINT  contain  Cos0n 

and  Sin0n,  respectively,  where  0^  is 
defined  as  follows: 

For  an  arbitrary  grid  node  (I,  J)  on  the 

interface  of  the  inclusion  whose  L  number 

is  some  value  such  that  1  <  L  <  NL, 

0  is  defined  as  the  angle  between  the 
n 

normal  to  the  inclusion  surface  at  (I,  J)  and 
the  positive  x-axis. 

Thus  COST  (L)  =  Cos0n 
SINT  (L)  =  Sin0n 

For  L  =  1,  i.  e.  ,  the  grid  node  referenced 

in  the  definition  of  IN,  0  is  defined  to  be 

n 

90  degrees  which  implies 

COST  (1)  =  Cos  90°  =  0.0 
SINT  (1)  =  Sin  90°  =  1..  0 

For  L  =  NL,  i.  e.  ,  the  grid  node  refer¬ 
enced  in  the  definition  of  IM,  0  is  defined 

n 

to  be  0  degrees  which  implies 

COST  (NL)  -  Cos  0°  =  1.0 
SINT  (NL)  =  Sin  0°  =  0.0 

TZXB  TZXB  is  the  desired  average  shear  stress 

2 

(lb/in.  )  at  infinity  in  the  x-direction. 

TZYB  TZYB  is  the  desired  average  shear  stress 

2 

(lb/ in.  )  at  infinity  in  the  y-direction. 
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Parameter 


Definition 


MATRICES  MFII,  MFIJ  Matrices  MFII  and  MFIJ  contain  the  I  and  J 

coordinates  respectively  of  those  grid  nodes 
referenced  in  the  definition  of  NMFI.  No 
particular  input  order  is  required. 

B.  6  INPUT  DATA  CARD  LISTING 


Card  No. 

Parameter 

Data  Field 

Format 

1 

TITLE 

1-72 

12A6 

2 

M,  N,  NRX 

1-3,  4-6,  7-9 

13 

NRD,  IM,  IN 

10-12,  13-15,  16-18 

13 

NPRLX,  NCPRLX 

19-21,  22-24 

13 

NL,  NMFI 

25-27,  28-30 

13 

NKPROB,  NTP 

31-33,  34-36 

13 

NRXBT 

37-39 

13 

KSYM 

40-42 

13 

3 

IJTP 

1-60 

13 

4 

PCGPRX 

1-12 

E 12.  6 

5  to  L 

HX(I) 

1-72 

E 12.  6 

where  I  =  3.  .  .  M~  1 

NOTE:  Card  No.  K 

=  1"  +  (L  +  1)  where 

[J  represer 

the  greatest 

integer  function.  The  maximum  allowable 

value  of  K  is 

L  +  5. 

L-f  1  to  K 

HY(J) 

1-72 

E12.  6 

where  J  =  3.  .  .  N-  1 


NOTE:  Card  No.  K 


+  (L  +  1)  where  [_Jrepresents 


the  greatest  integer  function.  The  maximum  allowable 
value  of  K  is  L  +  5. 
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Card  No. 

Parameter 

Data  Field 

Format 

K+l 

GF,  GM 

1-24 

E 12.  6 

OMB,  VF 

25-48 

E 12.  6 

K+2  to  J 

LI(L),  LJ(L) 

where  L  =  1 .  .  .  NL 

1-72 

13 

J+l  to  I 

COST(L),  SINT(L) 

where  L  =  1 .  .  .  NL 

1-72 

E12.  6 

1+1 

TZXB,  TZYB 

1-24 

E 12.  6 

1+2  to  LC 

MFII(K),  MFIJ(K) 

where  K  =  1.  .  .  NMFI 

1-72 

13 

B.  7  OUTPUT  OF  PROGRAM 

(1)  Repeated  input  data. 

(2)  Dimensions  of  first  quadrant  of  the  fundamental  region,  A  and  B, 
where: 


M-l 

A  =  ^  HX(I) 
1=3 

and 

N-l 

B  =  HY(J) 

J =3 
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(3)  If  NKPROB  =  1  or  2: 

(a)  Results  of  the  kth  entry  into  Subroutine  RSDLS 

(b)  Results  of  Subroutine  RLXLS,  NCPRLX  consecutive  times, 
every  integral  multiple  of  NPRLX,  and  the  last  execution. 
NOTE:  (a)  and  (b)  are  printed  consecutively  for  each  value 

of  k  where  k  =  1.  .  .  NRD.  Output  includes  the  I 
and  J  coordinate  of  each  node  of  the  grid  array 
and  the  corresponding  displacements  and  residuals 
at  each  grid  node. 

If  NKPROB  =  1  and  k  =  1,  the  residuals  computed  in 

Subroutine  RSDLS  will  be  zero  everywhere  except  at  those 
grid  nodes  in  the  M-  1  column  at  J  =  4.  .  .  N-  1 . 

If  NKPROB  =  2  and  k  =  1,  the  residuals  computed  in 
Subroutine  RSDLS  will  be  zero  everywhere  except  at  those 
grid  nodes  in  the  N-  1  row  at  I  =  4.  .  .  M-  1 . 

(c)  Results  of  Subroutine  STRLS  for  the  particular  problem 
solved,  i.e.,  Problem  1  or  Problem  2. 

(4)  If  NKPROB  =  3: 

Results  of  Subroutine  STRLS  for  Problems  1  and  2  combined. 
Output  will  include: 

(a)  The  I  and  J  coordinates  of  each  grid  node  and  its  correspond¬ 
ing  displacement  w. 

(b)  The  shear  stress  components  TZX  and  TZY  and  the  resultant 
shear  stress  TZXY  at  each  interior  and  boundary  node. 

(c)  The  shear  stress  components  and  the  resultant  shear  stress 
at  each  interface  node  for  both  filament  and  matrix. 

(d)  GX  and  GY,  which  are  defined  as  the  effective  composite 
shear  moduli  in  the  x  and  y  coordinate  directions, 
respectively. 
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B.8  SAMPLE  PROBLEM 


The  sample  solution  presented  at  the  end  of  this  appendix  is  that  of  the 
elliptical  inclusion  array  shown  in  the  upper  left  of  Figure  26. 

On  the  first  page  of  output  is  printed  the  title  ELLIPTICAL  INCLU¬ 
SION  and  the  other  input  data.  The  grid  node  array  size  of  15  by  15  is  the 
number  of  grid  lines  in  the  fundamental  area.  The  computer  solution  uses 
two  grid  lines  outside  this  area  and  so  M  and  N  are  input  as  17.  The  quad¬ 
rant  dimensions  A  and  B  are  merely  the  sum  of  the  distances  between  grid 
lines  in  the  x  and  y  directions  respectively.  The  ellipse  represented  has  a 
major  to  minor  axes  ratio  of  2:1  and  a  fiber  volume  of  70  percent.  The  input 
values  of  matrix  and  inclusion  shear  modulus,  relaxation  factor,  imposed 
loads,  and  fiber  volume  are  also  listed. 

Following  this  are  the  I  and  J  coordinates  of  the  ten  test  points  at 
which  the  change  in  stress  per  relaxation  cycle  is  to  be  calculated.  The 
spacing  between  each  grid  line  is  listed  under  GRID  SPACING.  First,  the 
horizontal  spacing  HX  (I)  is  given.  The  distance  shown  for  I  =  3  is  the 

horizontal  distance  from  grid  line  3  to  grid  line  4.  Similarly,  HY  (J)  is  the 
vertical  grid  spacing. 

The  first  entry  into  Subroutine  RSDLS  results  in  zero  residuals  at  all 
grid  nodes  except  those  adjacent  to  the  right  boundary  which  is  given  a  unit 
displacement.  In  this  row,  the  residuals  are  equal  to  0.4958  x  10  .  As  the 

effect  of  these  residuals  spreads  throughout  the  array  during  the  relaxation 
process,  they  become  progressively  smaller. 

The  relaxation  process  was  halted  after  110  relaxation  cycles  when 
all  10  test  points  recorded  a  change  in  stress  of  less  than  0.05  percent  per 
relaxation  cycle.  At  this  point,  the  largest  residual  in  the  entire  array  had 
an  exponent  of  10^.  This  represents  a  decrease  of  5  orders  of  magnitude. 

The  interior  and  boundary  stresses  are  printed,  followed  by  the 
interface  stresses.  The  stress  concentration  factor  (as  shown  in  Figure  26) 
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is  determined  by  the  matrix  interface  stress  at  I  =  11,  J  =  3,  i.  e.  , 

\ 

3921.  1  psi,  divided  by  the  imposed  shear  stress  of  1000  psi,  i.  e.  , 

SCF  =  3,921,  Next  is  printed  the  effective  composite  shear  modulus  in 
the  x  direction  of  0,869  x  10^,  The  shear  modulus  in  the  y  direction  was  not 
calculated  since  the  example  problem  shown  involved  an  imposed  shear  stress 
along  the  x  =  a  boundary  only;  Problem  2,  i.  e.  ,  an  imposed  shear  stress 
along  the  y  =  b  boundary  only,  was  not  solved  for  in  this  example. 
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LONGITUDINAL  SHEAR  PROGRAM 


START ^ 


NO 


IS  KQR  =  0  ?  k 


NO 


+  YES 


PROVIDE  INITIAL  DISPLACEMENT 
OF  THE  PROPER  BOUNDARY 


KQR  =  1 

HZ 


CALL  SUBROUTINE  RSDLS 

+  ~ 


WRITE  NODAL  POINT  COORDINATES, 
DISPLACEMENTS  AND  RESIDUALS 


CALL  SUBROUTINE  RLXLS 


READ  INPUT  DATA 

I 


►  END  -  IF  NO  MORE 
INPUT  DATA 
PRESENT 


SET  KPROB  =  1  FOR  NKPROB  =  1  OR  3 
SET  KPROB  =  2  FOR  NKPROB  =  2 


KQR  =  0 


CALCULATE  QUADRANT  DIMENSIONS  A,  B 


CLASSIFY  GRID  NODES 

1  ~ 


CALCULATE  COEFFICIENTS  FOR  INTERIOR, 
BOUNDARY  AND  INTERFACE  NODES 


WRITE  INPUT  DATA  AND  QUADRANT  DIMENSIONS 


KQR  =  0  k 


IS  NRDS  >  NRD  ? 


YES 


CALL  SUBROUTINE  STRLS 

HZ 


YES 


SUBROUTINE  RSDLS 


^  START  ^ 


IS  NKPROB  =  3? 


NO 


IS  KPROB  =  2 


CALCULATE  RESIDUAL  REW 
AT  EACH  GRID  NODE 


YES 


^RETURN^ 


SUBROUTINE  RLXLS 


^ START  ^ 


NO 


»]  IS  KSYM  =  1  ? 

I3HI 


NO 


NRDS  =  0 
KPROB  =  2 


INVERT  DISPLACEMENTS 
OBTAINED  FOR  KPROB  =  1 


KPROB  =  2 


CALL  SUBROUTINE  STRLS 


NO 


AT  EACH  NODE  IN  ARRAY  -  CALCULATE 
NEW  W  DISPLACEMENT  AND  RELAX 
RESIDUAL  AT  SURROUNDING  NODES 


KPROB  =  3 

~T~ 


COMBINE  NODAL  POINT 
DISPLACEMENTS  OF 
PROBLEMS  1  AND  2 


IS  NUMBER  OF  RELAX 
CYCLES  COMPLETED 
>  NRX  ? 


NO 


TEST  CHANGE  IN  STRESS  AT  TEST  POINTS 
WHEN  NRXS  >  NRXBT.  IS  CHANGE  IN  STRESS 
AT  ALL  TEST  POINTS  LESS  THAN  PCGPRX? 


YES 


jYES 


CALL  SUBROUTINE  STRLS 


WRITE  NODAL  POINT  COORDINATES, 
DISPLACEMENTS  AND  RESIDUALS 


C 


RETURN^ 
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LONGITUDINAL  SHEAR  PROGRAM  CONTINUED 


SUBROUTINE  STRLS 
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FORTRAN  IV  COMPUTER  LISTING 


Fortran  4 

program 

LONGSHEAR 

lift'll 

CLONGSHEAK  . 

u n  n  2 

COMMON  W,WL,WSAVF.Wl»mS,W2,W2S,  rzX,T2Y,TZXB.  (?YP,T2XB9.  WYRS, 

n  u  0  3 

1TZXM,  T2YM.  TZXF,  TZ  YF»REW,HX,  HY.'ImR,  GF  .GP.GX.GY.Fl .  F2.COM  .SI NT  , 

1)004 

2CAT, C1.C2.C3.C4,C5.C6.C7,C«,C9.C10»C11 ,  (:12,C13,Ci4.C15.C16.C)7, 

fin  05 

3C18.C19,C20.C21,C22,C23.C24,C25,C26,C27,C?8,C.>Q,ni.D2,r3,04,05, 

on  06 

4D6.  07,  DB.D9. 010,1)11.  DIP,  El.  E2.E3.fr4.E5, 

0  00  7 

5 M , H M 1 ,  MM2 , MM3  ,  MP1  »MP2»N,NK1,NM2,  Nm3,  NPj. ,  NP?,IV,  I'lMt  ,IMM2»I^M3, 

n  n  n  8 

6TNP1 , INR2,I^P3,Im,IMM1,IMM2,IMH3,TMP1, r«Pt , 1M- 3 , NL , NLMI ,  M-K2, 

e  n  0  9 

7UM,LI.L,).LAT,KNAT,NMFI.MrlJ,MPI,KMT,KPR06,l  JTk.MPH, 

010 

8NRX.NRD.NRXS.NRDS.NPHLX,NCFRLX.NTP,NHT,TZXYi, V 7X Y2 , PCGPRX , TZXY 

9,NRXHT,NKPR0B,A,R.FP1 

0  0  12 

DIMENSION  W(33,33),REWC33.33).TZX(33.33)»T7Yf 33,33>»Flf3S,33>. 

'1013 

lE2(33.3J>.E3<33,33)»E')(33.33).E5t33,33),KNT(33,33),LN(33,33), 

nil  14 

2029(33,33) ,  MEK33, 33)  ,  RSAVE  (33, 33)  ,  TZXY  '33,33) , 

>:  n  1 5 

3C6<70), C7<70), 08(70). C9(70), CIO  (/(l),Cll(70),r  >2(7;), Cl  3  (70, Cl4(7n 

o  16 

4  ), 015(70), C1S(70), 017(70),  0l6(7n),ClY(  7  i-), 02 'M7C  1,021  (70, 0??(7  ft). 

=.■017 

5023(7  □),  C24  (  7o  ),  025  (70),  026  (7i)),C?7(  70)  .026(7  0,  POST  (7  ),SInT<7c> 

!’  Ills 

6, 01(35), 02(35) ,03(35) »  r>4  {  35 ) ,05(35) ,1)6(35) ,D7r  15  > ,08(36) ,09(35) , 

01.19 

7HX(35).HY(35)  ,WL(  7ft)  ,LT  (  70  >  ,LJ(7U)  ,Cl(7i),C2(  '(i)  ,C3<  7'  ) ,  C4(7ft> , 

no  20 

8C5(70).D10(35),011(35),D12(35).TZXM(7C).TZYM/  ;ft)tT7XF(70»TZYF<7r.) 

0021 

9»IJTP(20)»TZXy1(10)»TZyY?(10)«mfII(90),mFIJ(90 

i)l)22 

DIMENSION  TlT|_E<12> 

Dn23 

c 

0  0  24 

c 

A  RELAXATION  SOLUTION  OF  the  L"NGTTUUINaL  shear  PROBLFM  for  A 

0025 

c 

DOURLY  PERIODIC  RECTANGULAR  AR«aY  OF  ELASTIC  INCLUSIONS  IN  *N 

.'(126 

c 

INFINITE  ELASTIC  BODY 

(<  0  27 

c 

no26 

1  DO  102  1=1,33 

0p?9 

DO  102  0=1,33 

C  0  3  0 

W(I» J  >  =  0 . 0 

0031 

RER(I*J)=O.B 

0  0  32 

TZX ( I , J ) =0 . 0 

0li33 

TZ Y ( I, J ) =0 . 0 

0  034 

hsave(I,j)  =  o.o 

1)1(35 

102  CONTINUE 

f!0  3  6 

.  GX  i  0.0 

0037 

GY  3  0.0 

0038 

KOR  =  0 

Oft  3  9 

101  READ  (8,208)  HUE 

11(140 

READ  (8,201)  m,N, NRX.NPO.IM.IN.NPRLX.NCPRLX.NI . NMF I , NKPROB , NTP 

i(041 

l.NRXRT.KSYM 

(1042 

IF  (NKPROB  . Eq .  2)  GO  TO  62 

0  ft  4  3 

KPROB  ■  1 

U  n  44 

GO  TO  61 

n  045 

62  KPROB  =  2 

(ift46 

61  NTP2=NTP+2 

0(147 

READ  (8,201)  ( I JT  3  ( I J) , T J=1 , NTP2  ) 

0  048 

DO  44  IJ=1,10 

0(1 4  9 

TZXY1(IJ)=0. 

H(1 5  0 

44  TZXY2(IJ)=0. 

-1051 

RE  Al)  (  8 , 202  )  DC GPP X 

0152 

MM1=M-1 

U0  53 

MM2=M-2 

0  054 

MM3=M-3 

0  055 

NM1=N-1 

0  056 

NM2=N-2 

0  05  7 

NM3*N-3 

fortran  4  program 

LONGSHEAR 

005B 

HP1*M+1 

1(159 

MP2  3  M  +  2 

0(160 

NP1=N+1 

P.061 

NP2*N+2 

0062 

NLMl=NL-l 

P063 

NLM2sNL-2 

1!  ft  6  4 

IMP3*IM+3 

U065 

IMP2=IM+2 

(1066 

IMPl=IM*l 

'1067 

IMM1=IM-1 

0068 

IMM2=IM-2 

0  0  69 

IMM3=IM-3 

00  70 

INP3=IN+3 

O07l 

INP2=IN+2 

0072 

INP1 3 IN*1 

(10  73 

INM1=IN-1 

0074 

INM2=IN-2 

0075 

INM3=IN-3 

0076 

REAP  (8,202)  (HX(I).I=3.MM1  ) 

0077 

REAU  (8,202)  (HY( J)»J=3,NM1) 

0078 

A  3  0  •  0 

0079 

8:0.0 

0080 

DO  42  I33»MM1 

0  0  81 

42  A=A*HX(I) 

0062 

DO  43  J  =  3»  NM1 

0083 

43  B  *  B*H Y { J ) 

0084 

HX(M)=HX(MM1) 

0085 

HX(MPl) 3  HX ( MM? } 

0086 

HY( N) sHY (NM1) 

0087 

HY(NPD3HY(NM2) 

0  0  88 

HX( 2 ) 3HX ( 3 ) 

i)089 

HX(1)=HX(4) 

0090 

HY(2)=HY<3) 

0091 

HY ( 1 ) 3H Y ( 4  ) 

0092 

READ  (8.202)  GF.GM.0MB, VF 

0093 

READ  (8,201)  {<LI(L),L.i(L>>»L* 

0094 

READ  (8,202)  ((C05T(L),STNT(L1 

0095 

READ  (8,202)  TZXB.TZYB 

0096 

DO  33  1=3, M 

0097 

DO  33  J=INP1,N 

0098 

33  MFI(I,J)=1 

0099 

DO  34  I=IMP 1 , M 

0100 

DO  34  J=3,IN 

OlOl 

34  MFI(I.J)=1 

0102 

DO  35  1=3. IM 

0103 

DO  35  J=3.IN 

0104 

35  MFI(I»J>=2 

0105 

DO  37  L=1.NL 

0106 

I=LI(L) 

0107 

J  =  LJU> 

0l08 

37  MFI(I,J)=3 

0  1  0  9 

DO  12  L*1,NL 

0110 

I=Li(L> 

0111 

J=LJ(L) 

0112 

LN(I«  J) *L 

0113 

12  CONTINUE 

0114 

DO  20  1=4. MM1 

Fortran  4  program 


LONGSHEAR 


Ull5 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
Ql?4 
0125 
0126 
0127 
Hi  28 
Cl  29 
ni3o 
1)131 
013  2 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
OHi 
0142 
0143 
01  44 
0145 
0146 
0147 
0148 
PJ  49 
0150 
0151 
■'152 
01.53 
f)  1 5  4 
0 1 5  5 
0 1  56 
01.57 
0158 
0159 
0160 
01.61 
0162 
0163 
0164 
(1165 
0 1  66 
0167 
0168 
0169 
01  70 
Pi  7 1 


DO  20  J=4,NM1 
KNT ( I / J) =2 

20  CONTINUE 

DO  21  J=1.NP2 
KNT( 1< J)=l 
KNT(2» J)=l 
KNT (MP1* J)=l 
KNT ( MP2 » J 1 = 1 

21  CONTINUE 

DO  22  1=3. M 

KNT ( I, 1 ) =1  .  . 

KNT(I»2)=1 
KNT ( I,  NPi >  =  1 
KNT  1 1-*  NP2  )  =  1 

22  CONTINUE 

DO  23  J=4. NM1 
KNT(3,J»=8 
KNT (M» J)=9 

23  CONTINUE 

DO  24  1=4, MMi 
KNT (I. 3)=10 
KN  T  < I » N )  =  11 

24  CONTINUE 
KNT<3, 31=12 
KNT(3.N)=13 
KNT«M.N1=14 
KNTIM. 31=15 
KNT1IMM1. 31=16 
KNT ( 3# INM1 1 =17 
DO  25  L  =  3»  NUM? 

I=Li(L> 

J  =  L Jt  L  1 
KNT(I»J)=3 

25  CONTINUE 
X=LI ( 1 1 
J=L J ( 1 ) 

KNT ( I. J) =6 
I=LI(2> 

J=LJ<  2) 

KNT ( I »  J 1 =4 
I=Ll(NLMl) 

J=L J ( NLMl 1 
KNT (I. J) =5 
I  =  LKNL) 

J=LJ(NL) 

KNT ( I»  J)  =  7 
DO  4  1=4. MM1 
DO  4  J=4,NM1 
A1=HX(I) 

A2=HY ( J ) 

A3=HXCI-1) 

A4=HY ( J-l) 

El<I.J)=((-2.0/(Al*A3>)+f-2.0/(A2*A4)ll*GM 

E2(I.J)=(2.0/(A1«(A1+A3)))*GH 

E3(I. J)=C2.0/<A2* (A2+A4 1 ) )*GM 

E4U,J)  =  (2.0/<A3*(A1  +  A3)>)*GM 

E5(I. J)  =  (2.0/(A4*(a2  +  A4  >) )*GK 


FORTRAN  4  PROGRAM  longshear 


0172 

0173 

ni74 

0175 

0176 

0177 

(1178 

(1179 

oieo 

(J  1 81 
Hi  82 
01.83 
0184 
HI  05 
0186 
0l«7 
11168 
0189 
0190 
0191 
0192 

0 1  93 

U  1 9  4 
HI  95 
0196 
■1197 
0 1 9  8 
0199 

i>?l)fl 
0201 
0202 
0?0  3 
0204 
0205 
0?06 
0207 
0208 
0209 
0  210 
|J?U 
0  212 
0  213 
0214 
0215 
P216 

0217 

0218 

0?19 

0220 

0221 

0?22 

0223 

0224 

0225 

0226 

0227 

0228 


4  CONTINUE 
DO  41  1=4. IN 
DO  41  J=4.TN 
A 1  =  HX ( I ) 

A2=HY ( J 1 
A3=HX(I*1) 

A4=HY( J-l) 

El(I.J)=tC-2.n/(Al*A3»)+(-2.0/(A2*A4>)l*GF 
E2(1.J1=(2.0/(A1*(A1+A3)))*GF 
E3 ( I . J  >  =  (  2 . 0/ ( A2+ ( A2  +  A4 ) ) )*GF 
E4(I.U)=(2.0/( a3*(a1+A3) ) >*GF 
41  E5(l, J)=(2.0/(A4*(A2+A4) ) )+GF 

READ  (8,201)  (  (MFIKK)  ,MFlJ(K>  l.Ksl.NMFl  1 
DO  36  K  =  1 , NMF x 
I  =  MFIKK) 

J  =  HFIJ(K) 

A1=HX(I) 

A2=HY  <  J 1 
A3=riX(I-l) 

A4=HY( J-l) 

El(X,J)=((-2.n/(Al*A3))+(-2.0/<A2*A4l) 1 *GM 
E2(I.J)=<2.0/(A1+(a1+A3)))*GM 
E3 ( 1 «  J)  =  ( 2.0/(A2+(A2+A4) 1 >  +  GM 
E4(I.J)=(2.0/(A3*(A1+A3)))*GM 
E5Cl,J)=(2.0/( A4+(A2+A41) )*GM 
36  MFI( I, J)=l 
DO  7  L= 1 . NL 
I  =  LKL) 

J=LJ(L) 

A1=HX(I) 

A2=HYtJ) 

A3=HX ( 1-1 ) 

A4sHY(J“l> 

A  9  =  A 1 +HX ( 1+1) 

A10= A2+HY ( J+l ) 

All=AJ*riX(I-2> 

A12=A4*HY( J-2) 

R1=C0ST(L)/(A9-A1 1 
02=SINT(L)/(AtG-A2) 

03=COST(L)/(Ail-A3) 

04=SINT(L>7( A12-A4) 

Cl(L>=<GM*tA9*+2-Al**2)+Rl)/<Al*AQ> 

C2(L)B(GM*(A10**2-A2**?)*B2)/IA?*A10> 

C3(L)=(GF* ( A1i**2-a3**p)*B3)/( A3* All) 

C4(L)=(GF*(A12**2>A4+*?)*B4)/(A4+A12) 

C7(L)=-(GM*a9*P1)/A1 

C8(U)=-<GM*A1o*B2)/A2 

C9(L)=-(GF*A1i*03)/A3 

C10(L>=-(GF*Ai2+R4)/A4 

C1KL)  =  (GM*A1*R1)/A9 

C12(L)=(GM*A2*B2)7A10 

C13(L)=(GF*A3*B3)/A11 

C14<L)=(GF*A4*04)/a12 

C5(L>=(2.0*GF+A3*33)/A11 

C6(L1=2.0*C5<L) 

C15(L)=(4. 0*GF*A4*R4 1/A12 
C16(L)=C15(L)/2,0 


FORTRAN  4  PROGRAM 
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0?29 
0?3o 
0?3l 
0232 
0233 
0  234 
0235 
0236 
0  23  7 
023B 
0  239 
0  24  0 
0241 
0242 
0  24  3 
0244 
0  24  5 
0246 
0  247 
0  ?4  0 
0249 
0250 
0251 
0252 
0253 
0254 
0  255 
0  256 
0  25  7 
0258 
0259 
0260 
0261 
0262 
0  263 
0  26  4 
0  265 
"26  6 
0  26  7 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0  281 
0282 
0583 
0284 
0285 


C17(L)=(GF*(Ai2*«2-A4**2))/<A4*Al2*<A12-A4)) 
Clfl(L)=(GM*< A10**2-A2**2) )/(A2*Aln*< A10-A2)) 
C19(L)»<-GM*Aio)/(A2*{  Alfl-A2> ) 

C20(L)  =  (-GF*Ai2)/U4*(Al?-A4>  ) 

C21(0  =  (GM*A2)/(A10*(A10-A2>  > 
C22(L)=(GF*A4)/{A12*<A12-A4)> 

C23(L)  =  (GF*(AH**2-A3**2) )/(  A3  +  A11*  (Al)  -  A3>  ) 

C24<L)  =  (GM*<A9**2-Al**?>  >/tAl*A9* ( A9-A1 > ) 

C25(L>=< -GM*A9) /( 41* < A9-A1 > ) 

C26(L)  =  (-GF*Au)/(A3*(A11-A3)  > 

C27(L>  =  (GM*Al)/( A9*< A9-A1) ) 

C28(L)  =  (GF*A3)/(A11*< A11-A3J  > 

C29lL)=-4.0*Cl3(L) 

7  CONTINUE 

C  POINTS  16  AND  1 7 
A1=HX (IMM1 > 

A3=HX(IMM2) 

A9=MX(IM)+A1 
All=HX(lMM3)+A3 
A2=H Y ( INMl ) 

A4=HY(INM2) 

A1DsHY(IN)+A2 
A12*HY(1NM3)+a4 
L=NL+1 
LI(U=IMM1 
L J ( L ) =3 

C23(L)  =  <  <GF*(a11**?-A3*»?) )/( A3*A11*< A31-A3) ) ) *<-1.0) 
C24(L)=(<GM*( A9**2-A1**2))/(A1+A9*(A9-A1 )>)♦{-! .0) 

C25  (  L )  =  (  Gm*A9)/(A1*(A9-A1)> 

C26  ( L  )  3  (  GF*AH)/<  A3*(  AU-A3)  ) 

C27(L>=(  (GM*Al>/(  49*(A9-AD)  >*(-1.0) 
C28(L>3((GF*A3)/(All*(All-A3)))*(-1.0> 

L  =  N(.  +  2 

LI(L)=3 

LJ(L)=INM1 

C17(L)=(CGF*< A12**2-A4**2))/(A4*A12*(A1?-A4) >)*(-l.C > 
C18(L)  =  ((GM*( A10**?-A2**2) >/(A2*AiO*(Aig-A2) ) )*(-i.C  ) 
C19(L)=(  GM*A10)/(A2*(A10-A2>) 

C20 ( L ) = (  GF*A12)/(a4*(a12-A4)) 

C2l(U  =  ((GM+A2)/(Ai0*(A10-A2))>*(-l.0> 

C22(L)  =  t (GF*A4)/( Al2*( A12-A4) )  )  *( -1. 0 ) 

A2=HY(3) 

A10=HY(4)+a2 

A4=HY(NM1) 

A12=HY(NM2)+A4 
no  8  1  =  4,  IM 

01(I)=(-<A10**2-A2*»2)/(A2*A10*{A10-A2)>)*GF 
D2(I)  =  (  A10/( A?* ( A10-A2)  >  )*GF 
D3(I)=(-A2/(A10*( AlO*A?>) )*GF 

D4(I)=<(A12**2-A4+*2)/(A4*A12*(a1?“A4)) ) *GM 
05(I)=(-A12/(A4*(Al2-A4) ) )*GM 
D6(I)=(A4/tA12*(A12*A41))*GM 

8  CONTINUE 

00  B1  I=IMP1,NM1 

Dl( !)=(-( A10**2-A2**2)/( A2*A10*{ A10-A2) ) )*GM 
D2(l)=(A10/( A2*(A10-A2) >)»GM 
D3(I)=(-A2/( AlO+( A10-A2) ) ) *GM 
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D4(I)«((A12**2-A4**2>/(A4*A12*<A12-A4)>)*GM 

0287 

05{I>=(-Al?/< A4*(Al2-A4>) >*GM 

028B 

D6CI)=(A4/(A12*(A12-A4) >)*GM 

0289 

81 

CONTINUE 

0290 

A1=HX<3) 

0  291 

A9=HX(4)*A1 

0  292 

A3  =  HX (MM1) 

0293 

Ail=HX ( MM2 ) +A3 

0  29  4 

DO  V  J=4,IN 

0295 

D7( J)  =  ( -<  A9**2-Al**2)/( Al  +  A9*< A9-A1) > )*GF 

0?96 

D8(J)=<A9/(Al*( A9-A1)))*GF 

0297 

D9( J>=(-Ai/(A9*(A9~A1> ) )*GF 

0298 

D10«J)=((All**2-A3*42)/(A3*All*<Ail-A3)))*GM 

0  299 

D1I( J)»<-All/(A3*(All-A3) >)*GM 

0300 

D12U)  =  (A3/(AH*f  All- A3)  )  >*GM 

0301 

9 

CONTINUE 

0302 

DO  91  J=INP1*NM1 

0303 

D7(J)=(-(A9**2-A1**2)/(AI*A9*(A9-A1)))*GM 

0304 

08(J)  =  (A9/(Al*U9-Al>))*GK 

0305 

D9< J)=(-Al/( A9*(A9-A1) ) )*GM 

0306 

D10(  J)  =  l  <  All**2-A3**2)/(  A3«A11*(  AH- A3)  >  >*GM 

0307 

Dll( J)a(-All/<A3*( All- A3 J ) )*GM 

0300 

Dl?<  J)o(  A3/<  AH*(  All- A3) )  J  *GM 

0309 

91 

continue 

0310 

WRITE  (5.206)  TIT.E # MM?, NM2. A. B, GM . GF. OMB. TZXR 

0311 

WRITE  (5,207)  (IJTP( IJ> ,IJ=1,NTP2 > 

0312 

WRITE  (5.209)  (<I,HX(I)>,I=3»Mrii> 

0313 

WRITE  (5,210)  ( { J,HY( J) ), J=3,NM1 ) 

0314 

3 

NRXS=  0 

0315 

NRDS=0 

0316 

10 

IF  (NRDS-NRD)  5,6,6 

0317 

5 

IF  (KPROB  .EO.  2)  GO  TO  52 

0316 

IF  (KQR  . NE .  0)  G3  TO  63 

0319 

W1S=1.0 

0320 

DO  30  J=3,N 

0321 

30 

W(M, J)=W1S 

0322 

KQR  =  1 

0323 

GO  TO  63 

0324 

52 

IF  (KQR  . NE  «  0)  GO  TO  63 

0325 

W2S*1 » 0 

0326 

DO  104  1=1, M 

0327 

DO  104  J=1,N 

0328 

W(I» J)=0.0 

0329 

REW(I»J)=0.0 

0330 

104 

CONTINUE 

0331 

DO  31  1=3, M 

0332 

31 

W  ( I»N)  =  W2S 

0333 

KQR  =  1 

0334 

63 

CALL  HSULS 

0335 

NRDS=NRDS+1 

0336 

WRITE(5,203>  NRDS.KPROP 

0337 

WRITE (5,204 ) 

0338 

WRITE  (5.205)  ({(I, J,W(I,J) ,REW(I,J) ),3=3,N) ,1: 

0339 

DO  46  IJ=1,10 

0340 

46 

TZxri(IJ)=0. 

0341 

CALf,  RLXLS 

0342 

GO  TO  10 
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0343 

6  CALL  strls 

0344 

IF  (NKPROB  .NE.  3)  GO  TO  1 

0345 

IF  (KPROB  .EQ.  2)  GO  TO  64 

0346 

IF  (KSYM  ,EO.  1)  30  TO  65 

0347 

KPROB  =  2 

0340 

KQR  =  0 

0349 

NRDS  =  0 

0350 

NRXS  =  0 

0351 

GO  TO  10 

0352 

65  DO  66  I  =  3 » M 

0353 

DO  66  J  =  3>N 

0354 

66  wd.j)  =  wsAve(j,r)/FPi 

0355 

KPROB  =  2 

0356 

CALL  STRLS 

0357 

64  KPROB  *  3 

0358 

DO  67  I  =  3.M 

0359 

DO  67  J  =  3.N 

0360 

67  W(I»J>  =  W(I.J)  +  WSAVEd.J) 

0361 

CALL  STRLS 

0362 

GO  TO  1 

0363 

201  FORMAT  (2413) 

0364 

202  FORMAT  (6E12.6) 

0365 

203  FORMAT  <iHl,4gx,21HRESULTS  OF  RESID  NO.  , 

I?, 5X, 11  HP ROB LEM  NQ., 

I3/> 

0366 

204  FORMAT  (1H  , // , 6X. lHI. 3X , 1H J. 18X , lHW, 18X . 

8HRESIOUAL.///) 

0367 

205  FORMAT  (1H  , 3x . 214 , 6X. 2E20 . 8 ) 

036B 

206  FORMAT  (1H1,30X,55HL  ONGITUDINA 

L  SHEAR  4  N 

1  A  L 

0369 

1  Y  S  I  S  ,///,12A5.///,55X,10HINPuT  DATA. 

///. 

0370 

245H  GRID  NODE  ARPAY  SIZE 

CD 

X 

ft. 

0371 

321H  OUADRANT  DIMENSIONS  .6X.3HA  =, 1F6. 3, 6X , 3MB  =,1F6.3. 

//, 

0372 

445H  MATRIX  SHEAR  NOOULuS  PsI 

=,1E12.4, 

//. 

0373 

545H  INCLUSION  SHEAR  MODULUS  PS* 

= ,1E12.4, 

//. 

0374 

645H  RELAXATION  FACTOR  (OMEGA  BAR) 

=,1F6.3, 

//. 

0  375 

745H  AVERAGE  Zx  SHEAR  LOADING  AT  INFINITY 

(PSD  =,1F9.2, 

//, 

0376 

845H  AVERAGE  ZY  SHEAR  LOADING  AT  INFINITY 

(PSI)  =,1F9.2. 

//. 

0377 

945H  percent  fiber  by  volume 

=  » 1F9 . 2  > 

0378 

207  FORMAT  (1H  ,//.24H  TEST  POINT  COORDINATES 

,//,6X,lHl,3X,lHJ,// 

, 

0379 

K3X.2I4) ) 

0390 

208  FORMAT  ( 12a6 ) 

0301 

209  FORMAT  (1H1.////.14H  GRTD  SPACING  ,//,6X 

»1HI.«X.5HHX(D,//, 

0382 

1(3X,I4,3X,F12.8)) 

0303 

210  FORMAT  (1H  ,///,6X,lHJ,8X.5HHY(J),//, 

0384 

K3X.I4.3X.F12.8)) 

0305 

end 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0  018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0020 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0  0  4  B 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 


CRSDLS 

SUBROUTINE  RSrLS 

COMMON  H,WL*WSAVF.W1,W1S.W2»W2S,TZX»  TZY.TZXB. TZYfi, TZXBS,  TZY0S. 
iTZXM,TZYM»TZXF,TZYF,REw,HX,HY,nMB,GF,GM,GX,GY,Fl,F2,C0ST»SlNT, 
2CAT.Cl.C2.C3.C4.C5,C6,C7,C8.C9,C10,CU.C12,Ci;>,Cl4»C15.C16.C17, 
3C18.C19, C20.C21.C22, C 23 »C24,C25,C26»C 27, C 28 .C29.D 1,02, (13.04,05. 
4D6.D7,D8,D9,Dlfl,Dll.DlP»El»E2.E3.E4,E5, 

5M,MM1»MM2»MH3,MP1»MP2»N»NM1,NM2,Nm3»NP) , NP2»IN,INM1»INM?»INw3> 
6INP1.INP2. INP3.IM, IMM1, ImM2. IMM3 . TMP1, IMP2 , IMr3, ML . NLMi  ,  NLM2, 
7LN,LI.LJ.LAT,KNAT,NMFI,MFIJ,MFI,KNT,KPROB,IJTM,MFII, 
SNRx.NRD.NRxS.NROS.NPRLy ,NCPRLx.NTP,NPT, TZXYi, T7XY2.MCGP&X, TZXY 
DIMENSION  W(33,33) .HE* (33.33 >»TZX( 33.33 >.TZY( 33,33) »EK 33, 33). 
1E2{33,33).F3(33,33),E4(33,33) ,E5<33,33),KNT(33.33) ,EN(33.33), 
2C29(33.33),MFi(33,33>,WSAVE(33.33),TZXY(33,33>, 

3C6<70).C7(70>>Ca(70).C9(70),C10(/o),Cll(70),C12(7-),C13(70),Ct4(70 
4),C15(70),C16(70).C17(70),C18<70),C19(70),C20(70) ,C?1 (70 ) .C2?(70 ) * 
5c23(70),C24(70),C25(70),c26(70)>C27(70),C2B(70),coST(7f:).SlNT(7D) 
6,D1(35),D2(35),d3(35) ,p4(35).d5(35),D6<35) ,D7<35),D6(35) ,09(35) , 
7HX(35),hY(35) , WL( 70 > . LI ( 70 ) , L J ( 70 ) , Cl < 70 ) , C2( 7 ? ) , C3( 7 : ) , C4( 70 > , 
8C5(70),D10(35),Dll(35>*Dl2(35),TZXM(70)iTZYM(70),T7XF(70),TZYF(7t)) 
9,IJTP(20>,TZXY1<30),TZXY?(10).MFII(90),MFIJ(90) 

DO  3  1=4, MM1 
DO  3  J=  4  >  NMl 

REWd,  JJsEKI,  J)*W(I»  J)+E2(I,  J)*H(I+1,  J ) *E3 d . J > *W < I .  J+1)*E4(I,  J)* 
1  W(I“1»J)+E5(I»J)*W(I,J“1) 

3  CONTINUE 
NLM2=NL-2 

DO  4  L=3,NLM2 
I  =  Ll<L> 

J=LJ<L) 

REW(I, J)  =  (C3(l)+C4(L) *C1<L> *02 f L ) } ♦  W  d ,  J  > +C7  (  L  >  *W  ( I+l , .( ) +C8<  L  > 

1  (I,  J*1UC9(  _)*W<I-1.  J)*C10(U>*W(I,  J-l)+(’i  10.)*h(T  +  2.  J)+Ct? 

2  (U*W(I,J*2)+Cl3(L)*W(I-2,  J)+C14<L)*W(I,J-?) 

4  CONTINUE 

GO  TO  (1.2) » KPROB 
1  DO  8  Ja3»N 
REW ( 3. J) =0 . 0 
8  REW (  M  ,  J  )  =  0  .  0 
DO  5  1=4, MM1 

REWd»3)=01CI)+Wd,3)+n2d)*Wd,4)+D3d)*wd.5) 

REW(I.N) =04(I)*W( I,N)+D5(I)*M(I,NM1 >+D6(I)*N(I,NM2) 

5  CONTINUE 
J=LJ<2> 

REW<4, J>=(Cl(2)*C2(2)+C5(2>+C4(2) )*W(4, j)+C7( 2) *W(5, J >+CB < 2) *W ( 4, 

1  J+1>+C29(2)*W(3, J)+C10(2)*W(4, J-i )+Cll(2 )*W(6,J)+C12(2)*W(A, 

2  J+2)+Cl4(2)*W<4, J-2) 

L=NL-1 

I=LI(L) 

REWd,4)  =  (Cl(L)*n2(U*C3(L)+C15(U>  ) *H (I , 4 ) +C7 (L > *W ( 1*1 , 4 > +C0 (L ) *W 

1  <I,5)+C9(L)*W(I-1 ,4)-C15(L>*H{I,3)*C3 t(L> *W( T  +  2, 4  > +C12 tl > *W 

2  <I,6)*Ci3(L)*W(I-2,4) 

REW(IM,3)  =  (C23(NL)+C24(NL)  >*W(lM.3)+C25(NU*WdM  +  l,3)*r26<NL)*W 
1  (IM-l,3)+C27(NL)*WdM+2.3)+c28<NL)*WdM-2,3> 

I=IMM1 

L=NL+1 

REwd,3)=C26(L)*W(I,3)  +  (C23(L)+C24(L) >*MI  +  1 .  »>+C2fl(L>  *  N 1 1-1 .3  > 

1  +C25(L)*W(I+2»3)+C27<L)*W(I+3,3) 
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0050  GO  TO  6 

0059  2  DO  9  1=3, M 

0060  REW( I, 3  )  =0 . 0 

0061  9  REW (I»N )  =  0,0 

0062  DO  7  J=4 , NMl 

0063  REW<3»J>=07(J)AW<3,J>*D8<J>*W<4,J)+D9(J)*W(5,J> 

0064  REW CM, J)=D10<J>*W(M,J)+Dll< J)*W(MM1,J)*D12(J)*W<MM2.J> 

0065  7  CONTINUE 

0066  J  =  LJ<  2 ) 

0067  REWC4, J)=(ClC2)*C2(2)*C6C2)*C4C2))*H(4,J>+C7(2)*W<5,J)+CB(2)tW(4, 

0060  1  J+l)+C29(2)AW(3»J)+C10C2)*W(4»J-l)+Cl1(?)*W(6»J)+C12(2)*Wf<t, 

0069  2  J+2)+Cl4C2) *W<4, J-2) 

0070  L=Nl-l 

0071  I=LI ( L) 

00  72  REW<I,4)  =  CClCU*C2(L)+C3a)+C16(U)*WCI,4)+C7(L)*W<I<-l,4)+C8CL>tW 

0073  1  (I,5)+C9tL)*WCI-l,4>-Cl5(L)*HCI»3)+Cll(L)«W(I*2,4)+C12CL)*W 

0074  2  (I,6)*Ci3(L)*W(I-2,4) 

0075  REWC3,IN)={Cl7Cl)»-C10(l))*WC3,lN>*C19(l)*W(3.rN+1 ) +C2C (1 > *N ( 3, TN”1 

0076  1  )+C21(l)*W<3»IN*?)+C22(l)*M(3*IN-2> 

0077  J=INM1 

0078  L=NL*2 

0  079  REW(3,J>=C20Cl)*W<3, J)*<C17<L)  +  C18(U  >+W(3,J*l)+C2?(l)*W<3,j-l> 

OoBq  1  *C19(L)*W<3, J*2)*C21(L)+W<3, J+3) 

0081  6  RETURN 

0062  END 
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0001  CRLXLS 

0002  SUBROUTINE  RLXLS 

0003  COMMON  W,WL»WSAVE,Wl,WlS,W2.W2S, TzX,TZY,TZXB.T7YR,TZXBS.TZY8S. 

0004  lTZXM,TZYM,TZXF.TZYF,REW,HX,HY.nH0,GF,GM,GX,GY,Fl,F2, COST, SINT, 

0005  2CAT»C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13,C1 4, C15, Cl6 , Cl  7, 

0006  3C18,C19#C20,C21,C22fC23,C24,C25,C26,C27,C28,C?9,Dl,D2,D3,D4,D5, 

0007  4D6,D7,D8,D9,D10.D11,D12.E1,E2,E3,E4,E5, 

0000  5M,MM1,MM2.MM3,MP1,MP2,N,NM1,NM2,Nm3,NPj , NP2,IN,INM1,INM2,INM3, 

0009  6INP1,INP2,INP3,IM.IMM1,IMM2,IMM3,TMP1,IMP2,IMP3,NL,NLM1,NLM2, 

0010  7LN,EI*LJ,LAT,KNAT,NMFI.MFIJ,MFI,KNT,KPR0B,IJTR,MFII* 

0  011  8NRX,NRD,NRXS,NRDS.NPREX,NCPRLX,NTP,NPT.TZXY1,TZXY2,PCGPRX,TZXY 

0012  9,NRXBT 

0013  DIMENSION  W C33, 33 ) , REWC 33,33 ) , TZX ( 33 . 33 ) . TZYC 33, 33 > ,El f 33 , 33 > , 

0014  1E2(33,33>.E3<33,33),E4(33,33),E5C33,33),KNT(33,33),LN<33,33», 

0015  2C29<33.33),MFT{33,33>,WSAVE(33,33),TZXY(33,33) , 

0016  3C6C7O),C7(7O>,C0(7O).C9(7O),ClO(7o),Cll(7O),C12<7O),Cl3<7C),C14{7O 

0017  4),C15(70),C16(70),C17C70),C18(70),C19(70>,C20(70),C21(70).C2?(70), 

0018  5C23<70),C24(70>,C25C70>,C26(70),C27C70>,C28(70), COST (70  >,SlNT{7fl) 

0019  6,D1C35>,D2(35),D3<35),D4(35),D5(35),D6(35) ,D7 C 35 ) ,D8 ( 35 > ,D9<35), 

0020  7HX(35),HY(35) ,WL(70),LI(70> ,LJ(70),Cl(70>,C2C7n) ,C3C73),C4(7P) , 

0021  8C 5(70), 010(35), 011(35), Dl2(35),TZxMC70>,TZYM( 7 0),TZXF{70),TZYF (70) 

0022  9.IJTP<20),TZXY1(10),TZXY2(10),MFIIC90).MFIJ(90) 

0023  DIMENSION  XX ( 35) , YY< 35 ) , AA ( 70 ) 

0024  NRXS=0 

0025  NPRXS*  0 

0026  1001  IF(NRXS-NRX)  1002,1003,1003 

0027  1002  NRXS=NRXS+1 

0028  NPRXS=NPRXS+1 

0029  GO  TO  (4201, 4202), KPROB 

0030  4201  KMM1  *  MM1 

0031  KMP2  *  MP2 

0032  KNM1  «  NMl 

0033  KNP2  »  NP2 

0034  GO  TO  4203 

0035  4202  KMMl  «  NMl 

0036  KMP2  =  NP2 

0037  KNM1  «  MM1 

0038  KNP2  =  MP2 

0039  4203  DO  50  III  =  2. KMMl 

0040  II  *  KMP2  -  III 

0041  DO  50  JJJ  =  2.KNM1 

0042  JJ  «  KNP2  -  JJJ 

0043  GO  TO  (1111, 1112), KPROB 

0044  1111  i  =  n 

0045  J=JJ 

0046  GO  TO  1113 

0047  1112  I*JJ 

0040  J=II 

0049  1113  KNAT*KNT(I, J) 

0050  GO  TO  (50.202,203,204,205,206,207,208,209,210,211,50,50,50,50, 

0051  150,50 ) , KNAT 

0052  202  CAT*E1(I,J) 

0053  GO  TO  1 

0054  203  UAT»LN< I, J) 

0055  CAT«C1(LAT)*C2(LAT)*C3(LAT)+C4(LAT> 

0056  GO  TO  1 

0057  204  UT«LN(I.J> 
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0058  GO  TO  <2041, 2042), KPROB 

0q59  2041  CAT  =  Cl(LAT)+C2(i.AT)+C4<LAT)+C5(L,AT) 

0060  GO  TO  1 

0061  2042  CAT=C1(LAT)*C?<LAT)+C4{LAT)+C6(LAT) 

0062  GO  TO  1 

0063  205  LAT=LN(I,J) 

0064  OO  TO  (205l#2o52) >  KPROp 

0065  2051  CAT=Cl(LAT)*C2f L  AT  )  *C3  (  LAT  >  "-C15  ( L  AT  > 

0066  GO  TO  1 

On 6 7  2052  CAT  =  C1 ( IAT ) +  C? { LA T >*C3 < LaT) +Cl6(l AT > 

0068  GO  TO  1 

0069  206  LAT*LNQ<J) 

0070  CATsC17{L.AT)*C18(_AT) 

0071  OO  TO  {  5o  » 1 )  *  KPRfl? 

0072  207  LAT=LN(I,J> 

0073  CAT=C23(LAT)+C24(-AT) 

0074  GO  To  (1.50)>KPRO3 

0075  208  QO  TO  C50 , 208? > , k=RO0 

0076  2082  CAT  =D7 ( J ) 

0077  GO  TO  l 

0076  209  GO  TO  (50,209?),  K3ROB 

0079  2092  CATsD10(J> 

0080  GO  TO  1 

0061  210  GO  TO  ( 21 0 1  *  5o  ) . K  3ROB 

0082  2101  CAT=D1(I> 

0083  GO  TO  1 

0084  211  GO  TO  < 2111, 5o ) , K=ROB 

0005  2111  CAT=04(I> 

0086  GO  TO  1 

0087  1  DO  51  KIJ=1,9 

0088  GO  TO  (9022.9023, 9024. 9025, 9026, 9027, 9026, 9029, 9021). KIJ 

0089  9021  KI=I 

0090  KJ  =  J 

0091  GO  TO  30 

0092  9022  KI=I+1 

0093  K  J  =  J 

0094  GO  TO  30 

0095  9023  KI-J. 

0096  KJ=J+1 

0097  GO  TO  30 

0098  9024  KI=I-1 

0099  KJ  =  J 

0 10  o  GO  TO  30 

0101  9025  Kl=l 

0102  KJ=J-1 

0103  GO  TO  30 

0104  9026  KI=I+2 

0105  KJ  =  J 

0106  GO  TO  30 

0107  9027  KI=I 

0108  KJ=  J+2 

0109  GO  TO  30 

OHO  9028  Kl=  1-2 

0H1  KJ  =  J 

0112  GO  TO  30 

0113  9029  KI=  jI 

0114  KJ=J-2 
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0115 
0 1 1 6 
0117 
01.18 
011  9 
0120 
0l2l 
0122 
0123 
0 1 2  4 
0125 
01.26 
0  1  27 
03.28 
0129 
01.30 
0l3l 
0132 
0133 
0134 
(II 35 
0136 
0137 
0  1  38 
0139 
0140 
0 1 A 1 
JI  A 2 
01  43 
(1144 
0145 
«J  1  A  6 
0 1 A  7 

0  3  AS 
0 1 A  9 
0150 
0151 
0152 
0153 
0154 
0155 
0]56 
01  57 
0  1  5  B 
0159 
0160 
0161 
0162 
0163 
0 1 6  A 
0165 
0166 
0167 
0168 
0169 
0170 
0l7l 


30  KN=KNT ( Kl.KJ) 

GO  TO  (301,30?) ,K=R0R 

301  GO  TO  <51, 2. 3, 4, 5. 51, 7, 51. 51, 10,11, 51, 51, 51, 5i ,51,61) ,KN 

302  GO  TO  <51.2, 3, 4, 5, 6, 51, 8,9, 51, 5i,si,51, 51, 51, -i.k1),KN 

2  GO  TO  (22, 23, ?4, 25. 51,51, 51. 51, ?l), KIJ 

21  W(I, J)=W(I. J)-REW(I, JHOMB/CAT 
REM(I.J)  =REW ( I » J)  ♦(1.0-nMR) 

GO  TO  51 

22  REW(KI.KJ)  =REW(<I,KJ)  -REW(I, J)*0MB*fE4  (KT,KJ)/CAT) 
GO  TO  51 

23  REW(KI.KJ)  =REW(<I,KJ)  -REW ( I, J ) ♦  OMB* ( E5  <K1,KJ)/CAT) 
GO  TO  51 

24  REH(KI.KJ)  =REW(<I.KJ>  -REW  ( I ,  J  )  *OMB*  <  £2  (K)  ,  K..D/CAT  ) 
GO  TO  51 

25  REH(KI.KJ)  =REW ( <1 »  K J)  -RE W ( I , J) *OMB* c E3  (KT,KJ)/CAT> 
GO  TO  51 

3  L=LN(KI»KJ) 

GO  TO  <32, 33, 34, 35,36, 37, 38, 39, 31), KIJ 

31  WU, J)=W(I, J)-REW(I. J)*0MB/CAT 
REw(I.J)  =rEW(I,J)  ♦(1.0-nMB) 

GO  TO  51 

32  REW(KI.KJ)  =REW( <I,KJ)  -REW ( I ,  J )  + OMB* ( C9  (L)/CaT) 

GO  TO  51 

33  REW ( KI , K J )  =REW(<I»KJ)  -REW ( I , J ) ♦ OMB ♦ ( CIO ( L ) /C a T ) 

GO  TO  51 

34  REW(KI.KJ)  =REW(<I,KJ)  -RE W ( I , J ) *OMB* ( C7  (L)/C*T) 

GO  TO  51 

35  REH(KI.KJ)  =  REWMI»KJ>  -REW ( I, J ) *OMB* ( Cb  (L)/CAT) 

GO  TO  51 

36  REW(KI.KJ)  =REW(<I,KJ>  -REH ( I , J ) +OMB ♦ ( Cl3 < L > /CAT ) 

GO  TO  51 

37  REW(KI.kJ)  =rEW(<I»KJ)  -REW(I,J)*0MB«(C14<Li/CAT) 

GO  TO  51 

38  REW(Kl.KJ)  =REW(<T,KJ)  -REW ( I , J ) *OMB ♦ ( C 11 ( L > /CA T > 

GO  TO  51 

39  REW(KI.KJ)  =REM(<I.KJ)  -REW ( I , J ) *OMB ♦ f Cl2 ( L ) /CA T ) 

GO  TO  51 

4  L=LN(KI.KJ) 

GO  TO  (42, 43, 44, 45, 51, 47, 48, 49, 41  ), KIJ 

41  W(I.  J)=W(I.  J)-REW(I,  J)*OMB/CAT 

REW  ( I ,  J )  =REW(I,J)  M1.0-nMB) 

GO  TO  51 

42  REw(KI.KJ)  =REW(4I,KJ)  -RE W ( I , J ) ♦OMB* » C29 { L > /Cat > 

GO  TO  51 

43  REW(KI.KJ)  =REW(<r.KJ>  -RE W ( I , J ) *OMB* < Cl 0 { L ) /C AT > 

GO  TO  51 

44  REW(KI.KJ)  =REW(<I.KJ)  -REW < I , J) +OMB* ( C7  (L)/CaT> 

GO  TO  51 

45  REW(KI.KJ)  srEWKT.KJ)  -REW  ( I ,  J  )  *OMB*  <  CS  <U/CaT> 

GO  TO  51 

47  REW(Ki.KJ)  =REW(<I,KJ)  -  RE W ( I , J ) * OMB* ( C14 ( L ) /CaT ) 

GO  TO  51 

48  REW(KI.KJ)  =REW(<I.KJ)  -HEW ( I, J ) *OMB ♦ c Cll ( L ) /C AT ) 

GO  TO  51 

49  REW (KI, K J)  =rEW(<I*KJ>  -REW ( I , J) *OMB* f C12 ( L ) /C a T > 

GO  TO  51 

5  L-LN(KI.KJ) 
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0 1?2 
0173 
0174 
0175 
0l7& 
0177 
0178 
0179 

meo 
oiei 
0162 
0183 
0 184 
0185 
0106 
0187 
01  88 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0 1 9  9 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
1*215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
n??3 
0224 
0225 
0226 
0227 
G?28 


GO  TO  ( 52 ,53, 54, 55, 56, ^1,58, 59, 46), MJ 
46  H<I, J>=W<I,J)-REW(I»J>*OMB/CAT 
REWU,  J)=RE4(T»  J)M1.0-OmB> 

GO  TO  51 

52  REw<KI,KJ>=REw(KI,KJ)-REW(1»  J)+nMB*(  C9  (L)/Cat> 
GO  TO  51 

53  REW<KI,KJ>=REw<KI.KJ>-REW<I.J)*f)MR*<-C15<L>/CAT) 
GO  TO  51 

54  REW<KX,KJ)=REw(KI,KJ>-REW<I, C7  (Ll/CAT) 
GO  TO  51 

55  REw<KI.KJ)=flEu<KI.KJ)-BEw<I» J)*OMB*<  C8  (D/CAT) 
GO  TO  51 

56  REH(KI,KJ)aHEg(KI.KJ»-REM(I,J»*nMH*(  Cl3<L)/CAT) 
GO  To  51 

58  REw(KI.KJ)=REw(Kl,KJ>-REwtI.  J)  *r>MR*<  ClKD/CAT) 
GO  TO  51 

59  REMtKI<KJ)=«Eu(KI,KJ)-REW(I,  C12CD/CAT) 

GO  Ttl  51 

6  L=l.N(KI»KJ) 

GO  TO  (51, 63, 51. 65. 51,67, 51.69, 61), KIJ 
61  W(I. J)=W(I, J)-REW(I, J)*OMO/CAT 
REwtl* J>=RER(I, J)*(1.0-OMB) 

GO  TO  51 

63  rEw(KI,KJ)=REW(XI,KJ>-rEw(I, J)*nMB.(  C2p(L)/Cat) 
GO  TO  51 

65  REW(Kl,KJ>sREH(KI,KJ)-REW<I,J)*nMB*(  CJ9<L)/CaT> 
GO  TO  51 

67  REW<KI.KJ)=REw<KI»KJ)-PEw<I. J)*nMB*<  C??<L)/CAT> 
GO  TO  51 

69  REW{Kl,KJ)sREM(KI,KJ)-REM(I»J>*nMR«(  C2)<L)/C*T> 
GO  TO  51 

7  L  =  LNU1»KJ) 

GO  TO  <72, 51. 74, 51, 76, 51, 78. 51. 71). KIJ 

71  W(I, J)=W<I, J)-REW(I, J)*OMB/CAT 
REW<I» J)=REH<I, J)*<1.0-OM8> 

GO  TO  51 

72  REWtKI.KJ>=REw(KI,KJ)"REWCI.J)*nM0»<  C26<L)/CAT) 
GO  TO  51 

74  REW<KI»KJ)=REw<KI,KJ)-REW<I»J)+nMB*(  C2MD/CAT) 
GO  TO  51 

76  REw(KI,KJ)=REw<KI,KJ)-REw<I,J)+nMR*(  C?ML)/C4T) 
GO  TO  51 

78  REW<KI,KJ)sREw(KT.KJ)-REM(I.J)+nMfl*(  C?7(L)/CaT> 
GO  TO  51 

8  GO  TO  (51. 51. 84, 51, 51, 51. 88, 51, 81). KIJ 
61  W<I, J)=H(I, J)-REH(I, J)*OMB/CAT 

REwtl, J)=RE 4(1, J) *{1.0 -0M8) 

GO  TO  51 

04  REW(KI,KJ)=REw(KI,KJ)-REW(I,J>*nMR*<  D»  (J)/CAT) 
GO  TO  51 

88  REW(Kl.KJ)=REw(KI.KJ)-PEw(I,J)*nMB*<  D9  <J>/CAT> 
GO  TO  51 

9  GO  TO  (92.51, 51 .51, 96, 51, 51, 51, 91), KlJ 

91  W(I.J)»H(X, J)-REW{T.J>*OMB/CAT 
REWtl* J)=RER<T, J)*(1.0-OMB) 

GO  TO  51 

92  REWlKI,KJ>  =  REw(KI.KJ)-REvi<I.  J)*DMR*<  Dll<J>/CAT) 
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0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
02^2 
0243 
0244 
0245 
0246 
0247 
024B 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0276 
0279 
0280 
0281 
0282 
0283 
0  28  4 
0285 


GO  TO  51 

96  REW(KI.KJ)=REw<KT,KJ)-REw(I,J)*nMR*(  Dl2(J)/CAT) 
GO  TO  51 

10  GO  TO  <51. 51. 51, 105*51. 51, 51. 109. 101), KU 

ioi  w<i* j>=g<i, j)-REw<r, j)*omb/cat 
REH(I» J)sRER(I, J)*(1.0-OMB) 

GO  TO  51 

105  REWlKI,KJ>srtEH(KI.KJ)-REW<I.J)*nMB*<  02  <I)/CAT) 
GO  TO  51 

109  REW(K1,KJ)=REw(KI.KJ)-RER<I, J)*nMR*<  D3  <I)/CAT) 
GO  TO  51 

11  GO  TO  <51, 113, 51, 51*51, 117, 51. 51, tll>* KlJ 
111  W(I» J)=W( I, J)-REWCI, J) *OHB/CAT 

REW<I» J>=RE4<r, J)*<1.0-OMB) 

GO  TO  51 

113  REH(KI,KJ)=REw(KT»KJ)”PEw<I,J)*PMp*(  D5  (D/CAT) 
GO  TO  51 

117  REW(KI.KJ)=REw<KI.KJ)-REW<I,J)*nMB*<  D6  <I)/CAT) 
GO  TO  51 
51  CONTINUE 
50  CONTINUE 

GO  TO  <160.170 ) ,K3ROB 

160  DO  161  1=3, IM 

161  YY  ( X.-2)  =W  (  1*3) 

XXUJ  =  0.0 

DO  162  1=4, IM 

162  XX(I-2)=XX<X-3)*HX<I-1) 

IMM4  =  IM-4 

DO  163  X=1.IMh4 

11=2*1-1 

AA(1I)=XX(I) 

163  A A ( II  +  l ) = Y  Y ( I ) 

II=2*IMM3-1 

AA<II)=XX(IMM2> 

AA<II+1)=YY<IMM2) 

XXX-XX  < IMM3 ) 

NN=XMM3 

WNEW=AINTPL  (XXX.YN.AA) 

DELTAH=WNEW-W{IMM1, 3) 

REH<IM,3 )=R£W(IM, 3>+C26<NL) *DELTAh 
REH<IMM1.4)=REW(I«tM1.4)-C15(NL-l)*DEETAH 
H(IMM1,3)=WNEW 
GO  TO  1617 

170  DO  171  J=3, IN 

171  YY< J-2)=W<3* J) 

XXC1)*0.0 

DO  172  J=  4 , IN 

172  XX(J-2)=XX(J-3)*HY< J-l) 

INM4SJN-4 

DO  173  J=1,INM4 
JJ=2* J-l 
AA(JJ»=XX< J) 

173  AA<JJ+1)=YY<J) 

JJ=2+XNM3-1 

AA< JJ)=XX<INM2> 

AA(JJ*1)=YY(INM2) 

XXX=XX(INM3) 
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0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
030  7 
0300 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 


NN=INM3 

WNEW=AINTPL  <XXX,NN,AA) 

DELTAH*WNEW-W(3,INMi> 

REW(3,IN)=REW(3,IN)*C20(1>*DELTAW 
REW(4,INM1)*R2W(4.INM1>+C29(2)*0ELTAW 
W(3,INM1)=WNEW 
1617  CONTINUE 

IF  (NRXS.LE.NRX9T)  00  TO  3005 
NPT«0 

DO  3001  I J  =  l»  NTP 
I=IJTP(2*lJ*l) 

JsIJTR(2*Ij) 

A1=HX(I) 

A2=HY(J> 

A3=HX(I-1) 

A4  =  HY  ( J*-l ) 

TZX(I,  J)  =  (BM/(Al*A3*(Al  +  A3)))*(A3**2*KCI*l»J>  +  (A14*2-A3**2)*NtIt 
1J)*A1**2*W(I-1,J)) 

TZYII. J>=<GM/( A2*A4*(A?+A4) ) ) ♦ ( a4 ♦ *2*H < I , J+l ) + ( A?* *2“ A4* *2) *W { I . J) 
1«A2**2*W(I» J“i) ) 

3001  TZXY2(IJ)=S0Rr(TZX(I. J)**2+TZY(I. j)**2) 

DO  3002  IJ=1,NTP 

I=IJTP(2*IJ-1) 

J=IJTP<2*IJ) 

PCG=< (TZXY2(Ij)-TZXY1(IJ))/TZXY2(IJ))*100.0 

IF  (PCQ.LE  ■ PcGPRX )  GO  TO  3002 

NPT»NPT*1 

3002  TZXYl(IJ)sTZXY2(IJ) 

IF  (NPT.EQ.O)  GO  TO  1003 
3005  CONTINUE 

if(NRxs-ncprlx)  ioo5.ino5»ioo4 

1004  continue 

IF(NPRXS-NPRLx)  1001. 1006. 1006 
1006  NPRXSSQ 

1005  CONTINUE 

WRITE  (5.1041)  NRXS.KPROR 

1041  F0RMAT(lH1.49x,214  RESULTS  OF  RELAX  NO.  » 14, 5x , 1) HPRO0L.EM  N0.,I3/> 
WRITE  (5.1042)  (((I.J.W(I.J).REW(I. J) > , J=3 , N > , T=3 , M ) 

1042  FORMAT ( 1H  ,//,6X»l HI »3x«lHJ,18X,lHW,18X,0H RESIDUAL.///, 
1(3X»2I4»6X,2E20,8) ) 

WRITE  (5,1043)  NPT, PCGPRX 
LPRX  =  NRXS 
GO  TO  1001 

1003  IF  (NRXS  .EC1.  LPRX)  GO  TO  4044 
WRITE  (5,1041)  NRXS. KPROB 

WRITE  (5,1042)  ( ( (I, J. W ( I, J ) . REw ( I, J> > , J»3, N ) , 1=3 , M ) 

WRITE  (5,1043)  NPT, PCGPRX 

1043  FORMAT ( 1H  ,///,I10,92H  TEST  POINTS  HAVE  NOT  YET  CONVERGED  TO  THE 
1SPECIFIED  MINIHUM  CHANGE  IN  STRESS  PER  RELAX  OF  , F8 . 3, 7HPERCENT) 

4044  RETURN 
END 


fortran  4  program  strls 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

OnlQ 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

003o 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0040 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 


CSTRLS 

SUBROUTINE  STRLS 

COMMON  W.Wl.WsavF.W1,W1S,W2,W2S.T7X,TZY.TZXB,T7YR.TZXBS.TZY3S, 
lTZXM,TZYM.TZXF,T7YF»REw,HX,HY,nM8,GF.GM,GX.GY.Fl,F2.C0ST,SlNT, 

2C AT. Cl, C2, C3, C4, C 5, C6»C7,C8,C9, CIO, Cl l,f 12, C13 , Cl  4 , Cl  5  .  C16, C) 7, 
3C18.C19,C20.C21,C22»C23,C24.C25,C26,C27,C2B,C;>Q,til,D2,n3,D4,05, 
4D6,D7,D8,D9,D1D,D11.D1?,E1,E2,E3.E4,E5, 

5M.MM1, MMZ,MM3,MP1, MP2,N»NM1,NM2,Nm3,NPj.,NP2,In,InM1»INM2, INM3. 
6INP1,INP2,INP3,IM, IMM1,IMM2,IMM3»IMP1,IKP2,IMP3»NL»NLM1»NLM2» 
7LN,LI.LJ.LAT»kNAT.NMFI,MFIJ.MFI,KNT.KPR08,IJTP,MFII, 

8NRX.NRD. NRXS, nrDS,NPRLX.NCPRLX,nTr, NPT, TZXY1, T2XY2, PCGPRX, TZXY 
9»NRXBT  »NKPRQB»A«B«FP1 

DIMENSION  W(33,33),REW(33.33>.TZX(33,33) . TZY< 33, 33 > » El f 33.33 > . 
iE2<33#33>,E3{33,33)f E4( 33, 33 >,E5( 33.33 >,KNT( 33.33 ),LN(?3, 33 >, 
2C29(33.33).MFI(33.33>, WSA VE ( 33 , 33 > , TZXY ( 33. 33 ) , 

3C6(70),C7(70>,C8(70>,C9(70),C10(70).Cll(70) , Cl? ( 7 C ) . C13 ( 70 ) , C1.4 ( 70 
4>,C15(70),C16(70),C17(70),C18(70),C19(70> ,C20(70),C21 (70) ,C2?(7(l>, 
5C23(70  ),C24(70  ),C25<70),C26(70  ),C27(  70),C28<70),COST(7;.  ),S1nT(70> 
6,D1(35),D2(35),D3(35),D4(35),D5(35),D6(35),D7(35) , D8 ( 35 ) » D9 (35) , 
7HX(35),HY(35),WL( 70 > . Li ( 70 ) , L J ( 70 ) » Cl< 70 > , C2( 70 ) , C3( 7 0 ) , C4 ( 70  ) , 
8C5(70),D10(35),D11(35),D12(35),TZXM(70),TZYM(70),TZXF(70),TZYF(70) 
9,IJTP(20>.TZXY1(10),TZXY?(10),MFII(90),MFIJ(9C) 
A.TZXYF(70),TZXYM(70> 

GO  TO  (1,2. 10), KPROB 

1  A3=HX(MM1) 

AllsHX(MM2)*Hx(MMl> 

DO  3  J  =  3,N 
TZX(M.J>= 

1  (GM*(  (AlU*2-A3**2)*W(M,J>-Alm*2*W(MMl,  J)  *  A3*«2.*W<  MM2,  j)  )  )/ 

2  (A3*A11*(A11-A3)  ) 

3  CONTINUE 

TZX(M,3)=TZX(h,3)*HY(3)/2.0 
DO  200  J=4,NMl 

200  TZX(M,J)*TZX(h, J)*(<HY( J-1)/2.0)*(HY(J>/2.01 ) 
TZX(M,N)5TZX(M,N)*HY(Nm1)/2.0 

TZX8S*0  *  0 
DO  9  J=3,N 

4  TZXBS*TZXBS*TZX(M.  J) 

TZxBS=TZXBs/9 

FPl  =  TZXB/TZXBS 
DO  7  I a3 , M 
DO  7  J*3 , n 
WCI.J)  -  Fpl*w(I, J) 

WSAVEtl, J)=W(I, J) 

7  CONTINUE 

GX=(A*TZXBS)/W1S 

IF  ( NKPROB  ,Eq.  1)  GO  TO  10 

RETURN 

2  A4=HY(NM1) 

A12sHY(NMl)*Hy<NM2) 

DO  5  I«3,M 

TZY(I,N)=(GM/( A4* Al2* ( A12-A4) ) )* ( ( A12*«2-A4*»?) *W(I,N)-A12*#?«M( 
1I,NM1)*A4**2*W(I.NM2) ) 

5  CONTINUE 

TZY(3,N>=TZY<3,N)aHXC3)/2.0 
DO  201  1=4, MMl 

201  TZY<I.N)*TZY(I,N>*( CHX<I-l>/2.0)f(HX<H/2.0> > 
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005B 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
00  7l 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0  090 
0091 
0092 
0093 
0094 
0  095 
0096 
0  097 
0096 
0099 
0100 
0101 
0102 
0103 
0 1 0  4 
0105 
0106 
0107 
0108 
0109 
0110 
Olll 
0 112 
0113 
0114 


TZY<M»N)=TZY<h,N)*HX(MM1)/2.0 
TZY0S*O . 0 
00  6  I  =  J,M 

6  TZY0S=TZY8S+TZY(I,N) 

TZY0S*TZYBS/A 
F  =TZ YB/TZYdS 
DO  8  I»3,M 
DO  8  J  =  3»  N 
W<I,J)=F*W<I, J> 

8  CONTINUE 

GY=<B*TZYBS)/W2S 

IF  (NKPROB  .EQ.  2)  GO  TO  10 

RETURN 

10  DO  11  1=4, MM1 

DO  11  J=INP1,nM1 
A1=HX<I) 

A2=HY(J) 

A3=MXtI-l) 

A4=HY( J-l) 

TZX(I» J)=  (Gm/<AWA3*CA1  +  A3)) )♦< a3**2*W(I+1, J>+( Al**2-A3**21 *H(I, 
1J)-A1**2*W{I-1, JJ) 

TZYtl,  J)  =  <GM/(  A2*A4*<  A?+a4>  ))♦  U4  +  *2*H(I.  J+l>+(  A?«*2-A4**2)*W<  I,  J) 
l-A2**2*«(I,J-l)) 

11  CONTINUE 

DO  12  I=IMP1,MM1 
DO  12  J  =  4 » IN 
A1=HX(I> 

A2=HY <  J  ) 

A3-HX  (1-1 > 

A4=HY(J-1) 

TZX< I,  J)  =  (Gh/(A1*A3MA1  +  A3) ) >♦< A3**2*H<I*1. J)  +  < Al* *2-A3* *2 > *W< I , 

1 J) -Al*  *2*H ( 1-1, J) > 

TZY(I» J)=(GM/<A2*A4MA2*A4) ))*(A4**2*W(I,J+1)+(A2*«2-A4**2)*H(I, J) 
1-A2*»2*H(I,J-1)> 

12  CONTINUE 

DO  13  1  =  4, IM 
DO  13  J=4,IN 
Ai=Mxm 
A2=MY ( J ) 

A3  =  HX  < 1-1) 

A4=MY< J-l) 

A9=NX ( 1+1 ) + Al 
A10=HY<J+1)*A2 
A11*HX<1-2)*A3 
A12»HY(J-2)*A4 
K=MFI(I, J) 

GO  TO  <14, 15, 16), < 

14  CONTINUE 
AlxHX(I) 

A2=MY< J) 

A3=MX(I-1) 

A4=HY<J-1) 

TZX (I, J) 3  (Gm/(A1*A3*(A1+A3) ) > « < A3* *2*W < I+l. J) ♦ < Al* *2- A3**2) *W < I, 

1J)-A1**2*H(I“1,J>) 

TZYtl, J)=(GM/(A2*A4*< A?+A4) )>♦ ( A4 *  ♦  2 ♦  W <  I  »  J  + 1 )  ♦  <  A?*  *2- A4  ♦  •  2 )  *W <  I,  J  > 
1»A2**2+H( I, J“1 ) ) 

GO  TO  13 


Fortran  4  program  strls 


0115 

0116 

0117 

0116 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0126 

0129 

0i3o 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 


15  CONTINUE 
A1=HX<I> 

A2=HY< J) 

A3=HXCI“1) 

A4=MY< J-l) 

TZXtl, J)=<GF/<A1*A3*<Aj+a3) > > ♦ ( a3* *2*H <1+1, J)+< Al**2-A3**2) *W(I, 
lJ)-Al**2*MfI-i, J) > 

TZYtl, J)=<GF/(A2*A4*(A?+A4) ) ) • { a4* *2* W< I , J+l ) * ( A?* *2- A4 **2 > *W< I , J ) 
l-A2**2*HtI, J-l)) 

GO  TO  13 

16  L=LN( I, J) 

IF  (L.GT.2.AN0.L.-T.NLM1)GO  TO  19 
IF  (L.E0.2)  Go  TO  16 
GO  TO  20 

18  TZXF<L)  =  <GF/(  A3*  AH*  (An- A3)  > )  ♦  <  <  All**2-A3  **?.  >  *H  ( I ,  J)  -  Al  1*  *2*H<  I“1 
1. J)*A3**2*(N(I, J)-2*0*WSAVE<I, J))> 

TZYFU)*<GF7( A4  +  A12*tAl2-A4>  >>♦<  tAl2**2-A4**2)*H<I, J)-Al2**2*W<I, 
lJ-l)+A4**2*H( I, J-2) ) 

TZXrt<L>=<GM/<Al*A9*(A9-Al)))*<(Al**2-A9**2)*H<I,J)-»A9**2*H<I*l, j) 
l-Al**2*H(I+2, J>) 

TZYM(L)*(GM/< A2«A10*(A1 0-A2)))*(<a2**2-A10**2)*H(I.J>+A10**2*W<I, 
lJ+l)-A2**2*H<I,J+2) ) 

GO  TO  13 

19  CONTINUE 

TZXF(L)*<GF/< a3*A11*(A11-A3) )  )♦  ( < a11**2-A3*  +  2) *W<I, J)-All**2*W<I-l 
l,J)*A3**2*W(I-2, J>> 

TZYFtL>=tGF/<A4*A12*lAl2-A4>> )*(<A12**2-A4**2>*W<I, J>-Al2**2*Wf I, 
lJ-l)*A4«*2*W<I,J-2) ) 

TZXMtL)  =  tGM/< Al*A9*< A9-A1) ) >♦<  t Al**2-A9**2) *W(I, J)+A9*«2*W< I  +  l,j) 
1-A1**2*W(I+2»J) ) 

TZYMtL)=(GM/( A2*A10*< A10-A2) )>*((A2**2-A10**2)*H<I, J)+A10**2*W<I. 
lJ»l)-A2**2*W<r, J+2) > 

GO  TO  13 

20  T2YF(L>=(GF/(A4*A12*(Ai2-A4>))*((A12**2-A4**2)*W(I,J)-A12**2*W<I« 
lJ-l)+A4**2*<2,0*WSAVE<I,J)-WtI,J)>) 

TZXF<U)=<GF/(a3*A11*(AU-A3) >)♦< (A11«*2-A3**2)*H(I,J)-A11**2*H(I-1 
1«J)*A3**2*W(I«2,J)) 

TZXM(L)=(GM/< A1*A9*<A9-Al) ))♦< ( Al ♦ ♦ 2-A9+ ♦ 2 ) ♦ W < I , J)+A9**2*W< I+l, j) 
1-A1**2*W< 1+2, J ) ) 

TZYM(L)=CGM/(a2*A104(AiO-A2)))+((A2**2-A10**27+H<I,J)+A10**2*H<I, 
1J+1)-A2**2*W<I, J+2) ) 

GO  TO  13 

13  CONTINUE 
L=1 
1  =  3 
J=IN 
A1=HX (I ) 

A2=HYtJ> 

A3=HX (I- 1 ) 

A4=HY (J-l) 

A9=HX ( I ) +MX  1 1+1 ) 

A10«HYt J)+HY< J+1> 

All«HX(I-l)+HX<I-2) 

A12*HY( J+l)*HYt J-2) 

17  TZXF ( L) *0 , 0 

TZYF(L)  =  (GF/<A4*A12*( Ai2-A4))>*<  <A12**2-A4«*2)*N<I,J>-A12**2*W(I, 
lJ-l>*A4**2*W<I,J-2)> 


FORTRAN  4  program 


STRLS 


0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0101 
0102 
0103 
0104 
0105 
0106 
D10  7 
0168 
0109 
0190 
0191 
Dl92 
0193 
0194 
0195 
0196 
0197 
0190 
0199 
020  0 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 


TZXM(L)=(0M/(41*A9*(A9-A1))>*((A1**2”A9**2)*W(T,J)*A9**2*WCI*1,J) 
i-Al**2*W(I+2. J) ) 

TZYMU)  =  (GM/(A2*A10*(Al0-A2)  >  >♦<  U2**2-a10**?)*W(I,  J>-*AlC**2*W(I. 

lJ+l)-A2**2*W(I,J  +  2)  ) 

L  =  NL 
I  =  IM 
J  =  3 

Al-MX ( I ) 

A2=HY(J) 

A3=HX(I-1) 

A4=HY(J-1) 

A9=HX ( I ) +HX ( 1*1 ) 

A10*HYU)+HY<  J*l) 

A11*HX(1-1)*Hx(I-2) 

A12»HY< J-1)*Hy( J-2) 

21  TZYF (  L )  =  0  .  0 

TZXF(L)=(GF/(A3*All*(Ail-A3)))*((All**2-A3**?>*W(I,J)-ATl**2*W<T-l 

1, J)*A3**2*W(I-2, J) ) 

TZXM(L)=(GM/(Al*A9*tA9-Al)))*((Al**2*’Ao**2)*W(I»J)+A9*«2*W(I+i,J) 
1“A1**2*H(I+2»J) ) 

TZYM(L)=(GM/(a2*A10*( A10-A2) ) >♦( ( A2**2-A10**21*W(I, J>+AlO**2*WCr. 

1J+1)-A2**2*W(I. J*2)> 

DO  37  L=1.NL 
I=Ll(L) 

J=LJ(L) 

TZXYF(L)sS0RT(TZXr(L)**2«-TZYF(L)**2) 

37  TZXYM(L>=SQRT(TZXM(L)*«2+TZYM<L>**2) 

C 

C  STRESSES  AT  RECTANGULAR  BOUNDARIES 

C 

A1=HX(3> 

A9  =  HX ( 4 ) + A1 
DO  35  J=3,INMr 

35  TZX(3» JI*<GF/< Al* A9*( A9-A1) ) )• ( ( Al**2-A9**2>  *W(3 . J)*A9**2*N(4, J) 

1- Al **2*W ( 5, J) ) 

DO  23  JsINP1,N 

23  TZX(3»  J)a(GH/( Al* A9*( A9-A1)) )* ( ( Al **2-AV**2) *Rf 3, J)*AQt*2*M(4, Jl 

1-A1**2*H(5, J) ) 

TZX(3,INM1 )=(GF*WSAVE(4, INM1 >  >/HX(3> 

DO  24  JM.INMi 
A2=HY(J> 

A4=HY(J-1> 

24  TZY<3»J)=tGF/(A2+A4*(A?+A4))>*(  A4**2*Wt3.J+) !*(A2**2-A4**2)*W(3» 
1J)-A2**2*W(3,J-1) ) 

DO  25  J=INPl»NMl 
A2=HY(J) 

A4=HY( J-l) 

25  TZY(3» J>  s(GK/( A2* A4* ( A?  +  A4H ) *(  A4**2*W<3,J  +  )mA2**?-A4**2)*W(?» 
1J)-A2**2*W(3»J-1>) 

A3=MX(MM1) 

Ail=HX ( MM2 ) *A3 
DO  26  J  =  3,N 

26  TZX<M,  J)  =  (GM/(A3*  All*(  A 11 -A3)  )  >  *  ( ( All*  *2- A3**  21  *W  ( M,  J)  -  All*  *?*VI  ( 
1MM1,J)+A3**2*W(HM2,J>) 

DO  27  J=4,NM1 
A2=HY( J) 

A4=RY< J-l) 


FORTRAN  4  PROGRAM  strls 


0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0  ?4  0 

0241 
0242 
0243 
0244 
0245 
0246 
0  24  7 
0248 
9?49 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0  267 
0268 
0269 
n  ?70 
0?7l 
0  272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
P?«0 
0201 
02B2 
0203 
0204 
0265 


27  TZY(M,J)  =  (GM/tA2*A4*(A2  +  A4)))*(A4**2*W(h>J«’l)-t{A?*«2-A4»*2)*W(M,j) 

1-A2**2*H(M. J-l  >  ) 

DO  28  I=4,IMMi 
A1=HX(I> 

A3=HX(I-1) 

28  TZX(I,3)=(RF/( Al* A3* ( A} +A3) ) > ♦ t  A 3* *2* H ( I+l. 3 )  +  I Al ♦ *2~ A3* *2) * W ( T , 3 ) 
1-A1**2*W(I-1»3)) 

DO  29  I=IMP1,MM1 
A1=HX(I) 

A3=MX(I-1) 

29  TZX(I,3>  =  (Grt/( Al* A3* ( Al  +  A3 ) ) ) ♦ < A  3  * *2 *W ( 1*1, 3 ) * ( Ai *  *  2  -  A  3  *  *  2 >  *« ( T , j ) 
1-A1**2*W(I-1,3>  > 

A2=HY(3> 

A10=HY  <  4 ) +A2 
DO  30  I  =  3, IMM? 

30  TZr (I,  3)  =  (GF/( A2*AlO*( A10-A2) ) )• t  < A2* *2- A10* * 2 > *K 1 . 3 ) + Al C ♦♦?•«( I . 
14)-A2**2*W(I»5>  J 

DO  31  IsIMRI.m 

31  TZY(I»3)=(GM/(A2*Al0*(Al0”A2>))*(tA2**?-A10**2)*W(I»3)*AlC**2*W(I, 

14)-A2**2*W(I»5>  ) 

TZY(IMM1.3)»(GF*(4(IMMi,4)-HSAVE(IMM1,4) ) )/HY(3) 

DO  32  1=4, MM1 
A1=HX(I) 

A3=HX(I-1) 

32  TZX(I,N)=(GM/(Al*43*(Ai*A3)))*(A3**2*W(l+l,N)»(Al**2-A3«*2)*W(T,N) 

1-A1**2*W(I-1»N)  ) 

A4  =  HY<  NM1 ) 

A12=HY(NM2)*A4 
DO  33  1=3. M 

33  TZY(I,N>  =  (GM/( A4* Al2*<  A12-A4) ) >* ( ( A12**2-A4**2) *W(I,N)-A12**?*UCI, 
lNMl)+A4**2*W(r.NM2) ) 

DO  34  L=1 »  NL 

I  =  LKL) 

J=LJ(L) 

WL(L>'W(I, J) 

TZX ( I, J) =0  .  0 

34  TZYCI»J)=0.0 
DO  36  1  =  3,  M 
DO  36  J=3.N 

36  TZXY(I,J)=S«3RT(TZX(I.J>**2*TZY(I,J)**2) 

WRITE  (5. 100)C( (I.J#WlT,J> ,TZX(T, J ) , TZy { I » J ) , T 7X Y ( I , J) >,J=3,N> .1=3 
1,M) 

100  FORMAT  (1H1.45X.30HINTFRTOR  AND  BOUNDARY  STRESSES,/////, 
16X.lHI.3X,lHJ.l6X.lHH.?2x.3HTZX.17X,3H'T7Y»inX,i 7WJ7XY  < RESULT A ) , 
2////,(3X.2I4,6X,F2P.0.3F2O.3> ) 

WRITE  (5.10U  ((LI<L)»lJ<L)»TZXM(L)*TZYML),T7XYt‘(L)»T7xE(L).T7Y' 
1(L)»TZXYF(L) >.L*1»NL) 

101  FORMAT  (1H1,51X,13HINTERFACE  STRESSES,/////, 

136X.9HIN  MATRIX, 40X» 12MIN  INCLUSION.//, 

26X,lHl.3X,lHJ,HX.3HTZy,1.4X,3HT7Y,llX,9hRESUL  (  ANT  ,  11X  ,  ShT  ZX  ,  1  4X  . 
33HTZY,lSX,9rtKfSULTANT.///, 

4(3X.214,6F17.J)  ) 

WRITE  (5,102)  GX.3Y 

102  FORMAT  (1H  » //, 344  EFFFCTIVE  C'lM^OSITE  SHEAR  MODULUS, //, 4H  SX=, 
11E20 . 5, //, 4H  gY=» 1E20.5) 

RETURN 

END 
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COMPUTER  OUTPUT  SAMPLE  PROBLEM 


LONGITUDINAL 


S  H  E  A  H 


A  N  A  i  Y  S  T  S 


ELLIPTICAL  INCLUSION 


input  paTa 


GRID  NODE  ARRAY  SIZE 

quadrant  dimensions  a  =  0.519  b 

matrix  shear  modulus  psi 

inclusion  shear  modulus  psi 
relaxation  factor  (omega  bah ) 
average  ZX  SHEAR  LOADING  at  Infinity  (P31> 

average  ZY  SHEAR  LOADING  at  INFINITY  (PSI) 

percent  fiber  by  volume 


=J5  BY  15 
=  1.000 
=  0.2000+006 
=  0.4000+007 

=  1.750 
=  1000.00 
=  0. 

=  70.00 


TEST  POINT  COORDINATES 

I  J 

4  13 

4  12 

4  11 

7  11 

e  e 

9  9 

11  7 

11  4 

12  4 

13  4 


GRID  SPACING 

I  HX(I) 

3  0.05746400 

4  0.04222610 

5  0.04069630 

6  0.06475590 

7  0.13994220 

8  0.07991550 

9  0.04000000 

10  0.01594530 

11  0.00635140 

12  0-00635160 

13  0.00635160 

14  0.00635160 

15  0.00635160 

16  0.00635160 


j  hy<j> 

3  0.24562860 

4  0.20463070 

5  0.21974070 

6  0.20000000 

7  0.05000000 

6  0.02100000 

9  0.01400000 

In  0.00689060 

11  0.00635140 

12  0.00635160 

13  0.00635160 

14  0.00635160 

15  0.00635160 

16  0.00635160 


I  J  W 

3  3  0  . 

3  4  0. 

3  5  0. 

3  6  0. 

3  7  0. 

3  8  0. 

3  9  0. 

3  10  0. 

3  11  0. 

3  12  0. 

3  13  0. 

3  14  0. 

3  15  0. 

3  16  0. 

3  17  0. 

4  3  0  . 

4  4  0. 

4  5  0. 

4  6  0 . 

4  7  0. 

4  8  0- 

4  9  0. 

4  10  0. 

4  11  0- 

4  12  0. 

4  13  0- 

4  14  0. 

4  15  0. 

4  16  0. 

4  17  0. 

5  3  0  . 

5  4  0. 

5  5  0. 

5  6  0  . 

5  7  0  . 

5  8  0  . 

5  9  0  . 

5  10  0. 

5  11  0. 

5  12  0. 

5  13  0. 

5  14  0. 

5  15  0. 

5  16  0. 

5  17  0. 

6  3  0. 

6  4  0  . 

6  5  0  . 

6  6  0  . 

6  7  0. 

6  8  0. 

6  9  0  . 

6  10  0. 

6  11  0. 

6  12  0  ♦ 

6  13  0. 


6  14 

6  15 

6  16 

6  17 

7  3 

7  4 

7  5 

7  6 

7  7 

7  8 

7  9 

7  10 

7  11 

7  12 

7  13 

7  14 

7  15 

7  16 

7  17 

8  3 

8  4 

8  5 

8  6 
8  7 

8  8 
8  9 

8  10 
8  11 
8  12 
8  13 

8  14 

8  15 

8  16 

8  17 

9  3 

9  4 

9  5 

9  6 

9  7 

9  8 

9  9 

9  10 

9  11 

9  12 

9  13 

9  14 

9  15 

9  16 

9  17 

10  3 

ro  4 

10  5 

10  6 
1  0  7 

10  8 
10  9 

10  10 
10  11 
10  12 
10  13 

10  14 

10  15 


0. 
0. 
0. 
0. 
0. 
0. 
0. 
o. 
0- 
o. 
o. 
0. 
0. 
0. 
0. 
0. 
0. 
0  . 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
o. 
0. 


0. 


0. 


0. 

o. 


results  or  Resin  no.  i  problem  no.  i 
residual 


o. 

o. 
o. 
o. 
o. 
o. 
o. 
o. 
o. 
o. 
o. 
o. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0- 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0  . 
0. 
0. 
0. 
0. 
0. 
0  . 
0. 
0. 
0. 
0. 


0, 

0. 


0. 


0. 

0. 

0. 


0. 

0. 


0. 
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10 

16 

0. 

0 

ID 

17 

0. 

0 

11 

3 

0. 

0 

11 

4 

0. 

0 

11 

5 

0. 

0 

11 

6 

0. 

0 

11 

7 

0. 

0 

11 

a 

0. 

0 

11 

9 

0. 

0 

11 

10 

0. 

0 

11 

11 

0. 

0 

11 

12 

0. 

0 

11 

13 

0. 

0 

11 

14 

o. 

0 

11 

15 

o. 

0 

11 

16 

o. 

0 

11 

17 

0. 

0 

1  2 

3 

0- 

0 

12 

4 

0. 

0 

12 

5 

o. 

0 

12 

6 

o. 

0 

12 

7 

0. 

0 

12 

6 

o. 

0 

12 

9 

0  . 

0 
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APPENDIX  C 


A  RELAXATION  METHOD  OF  SOLUTION  OF  THE 
TRANSVERSE  NORMAL  STRESS  PROBLEM  FOR  A  DOUBLY  PERIODIC 
RECTANGULAR  ARRAY  OF  ELASTIC  INCLUSIONS  IN  AN 
INFINITE  ELASTIC  BODY 


C.  1  INTRODUCTION 

The  solution  of  the  problem  outlined  in  Section  4  has  been  formulated 
using  a  finite  difference  representation  and  a  numerical  relaxation  procedure 
designed  for  high  speed  digital  computer  operation.  The  finite  difference 
approximations  of  the  partial  derivatives  contained  in  Equations  (66),  (67), 
and  (68)  make  use  of  irregular  grid  spacings  in  both  coordinate  directions, 
as  indicated  in  Figure  C-l.  This  is  an  important  feature  of  the  solution  in 
that  it  permits  the  use  of  close  grid  spacings  in  regions  where  it  is  desired 
to  determine  stresses  very  accurately,  e,  g.  ,  in  areas  of  high  stress  con¬ 
centration  where  stress  gradients  are  high,  while  allowing  a  coarser  spacing 
in  less  critical  regions.  This  permits  a  given  degree  of  accuracy  with  a 
minimum  amount  of  numerical  computation  and  computer  storage  capacity. 

C.  2  FINITE  DIFFERENCE  FORMS 

The  finite  difference  representations  of  the  partial  derivatives  are  of 
the  following  forms  (where  f  represents  either  a  u  or  a  v  displacement 
depending  upon  which  derivative  is  being  evaluated). 
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Figure  CL  First  Quadrant  of  tho  Fundamental  Region  Showing  Typical  Grid  Lines  and  Notation  Used 


(1)  First  irregular  central  differences 
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(2)  Second  irregular  central  differences 
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(3)  Second  mixed  irregular  central  difference 
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(Equation  continued  on  next  page) 
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(4)  First  irregular  forward  differences 


**  i,j  ”  alV(a9 


M 


.  2  2.  t  2 

(a9  -  aj)  fi(  j  +  a9 
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1  ,2  2.  ,  ,  2  .  2  , 

=  - t ,  -  (a1A  -  a0)  f.  .  +  a1A  f.  ,  -  a0  f 

i,j  a2a10<a10  "  a2  L  10  2  ^  10  1>J+1  2 
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(5)  First  irregular  backward  differences 


Bxli,j  “  a3all(all  -  as: 


[{all  "  a3}  fi,  j  ' 


2  ,  j.  2  f 

11  i-l, j  3  : 


1  ,  2  2,  ,  2  r  2  f 
=  - 7 - v  (a10  -  a.)  f.  .  -  a,-  f.  .  n  +  a.  f 

ij  a4a12(a12  “  a4>  L  12  4  1,J  12  1,J“1  4 


i-2,  j] 
i.  j-2] 


The  terms  a^  through  a^  represent  distances  measured  from  the 
point  (i,  j)  at  which  the  difference  form  is  being  expressed  (point  0  in  Fig¬ 
ure  C-2)  to  surrounding  points  (numbered  1  through  12  in  Figure  C-2).  The 
subscripts  on  each  displacement  term  identify  the  grid  coordinates  of  that 
displacement  in  terms  of  the  point  (i,  j), 

J+2 

J+i 
j 

j-i 

j-2 

i-2  1-1  i  1+1  i+2 

Figure  C.2.  Node  Identification  Numbering  System 

Central  differences  are  used  in  representing  the  equilibrium  equa¬ 
tions,  Equations  (66)  and  (67).  In  representing  the  boundary  condition 
equations,  Equations  (70)  or  (71),  and  the  interface  continuity  equations, 
Equation  (69),  it  becomes  necessary  to  use  either  forward  or  backward 
differences  to  remain  within  the  first  quadrant  of  the  fundamental  region. 
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C.  3  PROGRAM  FORMULATION 


The  fundamental  region  is  bounded  by  the  grid  lines  3  <  i  <  M 
3  <  j  <  N  (see  Figure  C-l).  The  computer  storage  array  is  bounded  by  the 
grid  lines  1  <  i  <  M  +  2  and  1  <  j  <_  N  +  2,  the  two  additional  grid  lines 
exterior  to  each  side  of  the  fundamental  region  being  used  only  for  indexing 
purposes  in  the  program. 

The  maximum  total  grid  array  size  has  been  established  as  17  x  17 
and  the  minimum  total  grid  array  size  must  be  9  x  9.  Thus,  if  the  total 
grid  array  size  is  (M  +  2)  x  (N  +  2),  i.  e.  ,  an  array  with  M  +  2  grid  lines 
parallel  to  the  y-axis  and  N  +  2  grid  lines  parallel  to  the  x-axis,  where 
9  <  (M  +  2)  <  17,  9  <  (N  +  2)  <  17,  then  the  usable  grid  node  array  size  is 
(M  -  2)  x  (N  -  2)  because  of  the  unused  grid  lines  exterior  to  the  funda¬ 
mental  region. 

For  a  maximum  total  grid  array  size  of  17  x  17,  the  usable  grid  node 
array  size  is  therefore  13  x  13;  and  for  a  minimum  grid  array  size  of  9  x  9, 
the  usable  grid  node  array  size  is  5  x  5. 

Grid  lines  are  located  as  desired  in  the  fundamental  area  subject  to 
the  following  restrictions.  Any  grid  line  in  the  y  direction  which  intersects 
the  matrix-inclusion  interface  must,  at  that  intersection,  cross  a  corre¬ 
sponding  grid  line  in  the  x  direction  such  that  the  intersection  is  a  grid  node 
lying  on  the  interface.  Also,  a  horizontal  grid  line  must  pass  through  the 
point  at  which  the  interface  crosses  the  y  axis.  Similarly,  a  vertical  grid 
line  must  pass  through  the  point  at  which  the  interface  crosses  the  x  axis. 

C.  4  FORTRAN  PROGRAM 

A  listing  of  the  Fortran  statements  which  make  up  the  main  program 
and  its  supporting  subroutines  is  presented  at  the  end  of  this  appendix. 

The  main  control  program,  called  TRANSTRESS,  generates  the 
equations  to  be  solved  at  each  grid  node  and  controls  the  logic  flow  to  the 
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supporting,  equation  solving,  subroutines.  Initially  the  program  clears  the 
locations  used  to  store  the  u  and  v  displacements,  the  u  and  v  residuals 
(REU  and  REV),  and  other  storage  locations  which  may  have  values  from  a 
previous  problem  remaining  in  them*  The  program  then  reads  the  punched 
input  data  cards.  The  first  card  read  is  an  alphanumeric  title  card  of  72 
characters,  which  will  be  repeated  on  the  printed  output*  The  remaining 
data  cards  supply  the  program  with  the  physical  geometry,  imposed  stress 
conditions  and  control  parameters  of  the  problem,  as  detailed  in 
Paragraph  C.  6. 

The  program  then  creates  two  grid  lines  outside  of  the  fundamental 
region  on  each  side,  which  are  to  be  used  in  indexing  during  the  relaxation 
process.  A  code,  MFI,  is  assigned  to  each  node,  identifying  it  as  lying  in 
the  matrix  (MFI  =  1),  in  the  inclusion  (MFI  =  2),  or  on  the  interface  (MFI  =  3). 
Another  code,  KNT,  is  assigned  to  each  node  denoting  the  particular  equation 
to  be  solved  at  that  grid  node  (i.  e.  ,  equilibrium,  boundary  or  interface  equa¬ 
tion)  and  the  difference  representation  to  be  employed  (i.  e.  ,  central,  forward 
or  backward).  There  are  a  total  of  17  different  equation  combinations  or 
node  types  and  thus  KNT  is  a  number  ranging  from  1  through  17. 

The  proper  stress -displacement  equation  coefficients,  listed  in 
Section  4,  are  then  generated  to  produce  a  plane  stress  or  a  plane  strain 
solution. 


At  every  interior  grid  node  the  equilibrium  equations  in  the  x  and 
y  directions  are  combined  into  two  equations,  one  of  which  eliminates  the 
u  displacement  at  the  node  and  the  other  eliminates  the  v  displacement  at 
the  node.  The  program  then  generates  the  coefficients  of  these  equations  at 
each  interior  grid  node,  utilizing  the  grid  spacing  surrounding  each  node 
and  the  proper  stress -displacement  equation  coefficient.  These  coefficients 
are  stored  in  the  two-dimensional  arrays  El  through  E32,  which  are  in 
common  storage  with  the  other  subroutines.  This  eliminates  the  need  of 
recalculating  any  coefficient  at  any  time  during  the  solution  process. 
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The  coefficients  of  the  interface  node  equations  are  then  generated  for 
each  node  lying  on  the  interface.  These  are  stored  in  the  one -dimensional 
arrays  Cl  through  C38.  The  boundary  equation  coefficients  are  generated 
and  stored  in  the  one -dimensional  arrays  Dl  through  DlZ.  The  program  then 
prints  out  the  title,  the  inpot  parameters  and  the  problem  description  and 
begins  the  solution. 

The  remainder  of  the  statements  in  the  main  program  TRANS  TRESS 
direct  the  logic  flow  between  the  subroutines  and  store  and  manipulate  the 
interim  results  to  produce  the  desired  solution.  This  portion  of  the  program 
is  shown  schematically  in  Figure  31. 

C.  5  SUPPORTING  SUBROUTINES 

C.  5.  1  SUBROUTINE  RESDTS 

Upon  entry  into  Subroutine  RESDTS,  the  existing  displacement  field 
is  substituted  into  the  difference  equations  generated  for  each  grid  node. 

The  extent  to  which  these  equations  are  not  satisfied  is  termed  the  residual 
at  that  grid  node.  The  displacement  field  may  be  the  initial  unit  displacement 
given  to  one  boundary  with  all  other  displacements  set  equal  to  zero.  Or  it 
may  be  the  displacements  existing  after  a  specified  number  of  relaxation 
cycles  have  been  executed. 

Two  equations  have  been  formulated  at  each  grid  node.  One  equation 
is  used  to  solve  for  the  u  displacement  at  the  node  and  the  other  to  solve  for 
the  v  displacement.  The  residual  errors  in  these  equations  are  termed 
REU  and  REV,  respectively.  Using  the  existing  displacement  field,  these 
residual  quantities  are  computed  and  stored  for  each  grid  node  in  the  array. 

Special  equations  have  been  formulated  for  grid  nodes  which  interact 
with  surrounding  grid  nodes  located  across  the  matrix-inclusion  interface. 
These  equations  involve  changing  coefficients,  as  discussed  in  Subroutine 
RELXTS.  Most  of  the  statements  occurring  in  Subroutine  RESDTS  are 
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required  for  computing  the  correct  value  for  these  coefficients  before 
calculating  the  residuals. 

C.5.2  SUBROUTINE  RELXTS 

Subroutine  RELXTS  systematically  adjusts  the  displacements  at 
each  grid  node  to  reduce  the  residual  at  the  node  while  calculating  the 
corresponding  effect  upon  surrounding  residuals.  This  procedure 
(successive  over  relaxation)  is  repeated  throughout  the  array  until  the  dis¬ 
placements  satisfy  the  difference  equations. 

Special  equations  using  varying  coefficients  have  been  formulated  at 
grid  nodes  adjacent  to  the  matrix-inclusion  interface.  These  equations 
involve  the  displacements  at  grid  nodes  across  the  interface.  Because  the 
material  properties  of  the  matrix  and  the  inclusion  are  different  there  is  a 
discontinuity  in  the  slope  of  the  displacements  at  the  interface.  The  coef¬ 
ficients  of  these  displacements  are  adjusted  at  the  beginning  of  each  relaxa¬ 
tion  cycle  to  reflect  an  effective  displacement  which  would  exist  if  the 
material  properties  were  constant. 

After  calculating  these  coefficients,  indexing  is  begun  in  the  row 
adjacent  to  the  displaced  boundary  and  progresses  toward  the  interior  of  the 
fundamental  region.  This  is  done  to  transmit  the  boundary  displacement 
most  rapidly  to  the  other  nodes.  At  each  node,  the  KNT  code  is  tested  to 
determine  the  type  of  equation  to  be  satisfied  at  that  node.  The  coefficients 
multiplying  the  displacements  at  that  node  in  the  difference  equations  for 
the  node  are  placed  in  CUAT  and  CVAT. 

The  residual  existing  at  each  node  represents  the  extent  to  which  the 
difference  equation  is  not  satisfied  at  that  node  and  this  error  is  arbitrarily 
assumed  to  be  entirely  due  to  an  error  in  displacement  at  that  node.  A 
change  in  displacement  can  be  calculated  which  will  cause  the  residual  at  the 
grid  node  to  be  reduced  to  zero,  thus  satisfying  the  equation  at  that  node. 
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Actually,  the  change  in  displacement  is  further  increased  by  multiplying  it  by 
a  factor  OMB,  in  effect  "over relaxing"  the  residual.  In  theory*,  the  value 
of  OMB  can  vary  from  0  <  OMB  <  2.  The  case  of  OMB  <  1  is  termed  under  - 
relaxation  and  OMB  >  1  is  overrelaxation.  An  optimum  value  of  the  relaxa¬ 
tion  factor  OMB  has  been  found  to  be  about  1.75  for  the  present  solution. 

After  computing  the  desired  displacement  changes  at  the  node  and 
actually  changing  the  u  and  v  displacement  value,  the  program  indexes  to 
the  13  affected  nodes  (see  Figures  C-2).  The  residuals  at  each  of  these 
nodes  are  changed  in  proportion  to  the  influence  of  the  changed  displacement 
on  the  equation  at  the  node  point.  This  amount  is  the  ratio  of  the  coefficient 
of  the  changed  displacement  to  the  coefficient  stored  in  CUAT  or  CVAT.  This 
process  is  repeated  many  times  throughout  the  array  until  the  residuals  at 
each  node  are  reduced  to  a  value  small  enough  such  that  subsequent  relaxa¬ 
tions  would  no  longer  induce  a  significant  change  in  displacement  at  any  grid 
node. 


Two  exits  are  possible  from  Subroutine  RELXTS.  At  the  beginning 

of  each  relaxation  cycle,  the  total  number  of  cycles  already  executed  is 

compared  to  the  input  value  of  NRX,  When  these  are  equal,  control  returns 

to  the  main  program.  At  the  end  of  each  relaxation  cycle,  the  total  number 

of  cycles  already  executed  is  compared  to  the  input  value  of  NRXBT,  which 

is  the  number  of  relaxation  cycles  to  be  executed  before  testing  the  stresses 

at  selected  test  points.  When  the  number  of  relaxation  cycles  reaches 

NRXBT,  the  stresses  (cr  in  problems  1  and  3  and  a  in  problem  2)  are 

x  y 

calculated  at  the  specified  test  points  and  compared  with  the  stresses 
existing  at  the  end  of  the  previous  relaxation  cycle.  If  the  stresses  at  all 
test  points  have  changed  by  an  amount  less  than  a  specified  percentage,  read 
in  as  PCGPRX,  then  control  returns  to  the  main  program. 

Printed  output  from  Subroutine  RELXTS  consists  of  an  I  and  J  node 
index,  u  and  v  displacement  and  residual  for  each  node  point  in  the  array. 


*  Young,  David,  "Iterative  Methods  for  Solving  Partial  Difference  Equations 
of  Elliptic  Type,"  Transactions  of  the  American  Mathematical  Society, 
Vol.  76,  pp  92-111,  January  -  June  1954. 
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Printout  occurs  for  the  first  (NCPRLX)  number  of  consecutive  relaxation 
cycles  following  an  exit  from  Subroutine  RESDTS  and  every  (NPRLX) 
multiple  cycle  thereafter.  Printout  will  also  occur  for  the  last  relaxation 
cycle  executed  when  exit  from  RELXTS  is  a  result  of  satisfying  the  condi¬ 
tion  of  minimum  change  in  stress  at  the  test  points.  At  the  end  of  each 
printout,  a  record  of  the  number  of  test  points  which  have  not  yet  satisfied 
the  percentage  change  in  stress  condition,  since  testing  began,  is  given. 

C.5.3  SUBROUTINE  STRSTS 


Subroutine  STRSTS  is  entered  after  Subroutines  RESDTS  and  RELXTS 
have  been  executed  the  specified  number  of  times,  the  main  program, 
TRANSTRESS,  having  properly  scaled,  combined  and  stored  the  displacement 
fields  from  the  three  separate  problems. 


Subroutine  STRSTS  calculates  a  ,  cr  >  a  and  T  at  each  node  in  the 

x  y  z  xy 

array.  To  conserve  computer  core  storage,  these  quantities  are  stored  in 
the  two-dimensional  arrays  previously  used  for  the  equilibrium  equation 
coefficients.  Using  these  stresses,  the  principal  stresses  0^,  a  0^  are 
calculated.  Also  computed  are  0,  the  angle  between  the  x  axis  and  the 
principal  stress  direction,  and  the  von  Mises  sum  defined  in  Paragraph  C.  8. 
These  are  printed  along  with  the  identifying  I  and  J  indices,  u  and  v  dis¬ 
placements,  and  a  heading  defining  the  imposed  load  conditions. 


At  each  interface  node,  where  stresses  can  be  calculated  both  in 
the  inclusion  and  in  the  matrix,  a  zero  is  printed.  The  interface  stresses 
are  then  printed  on  a  separate  page  along  with  the  effective  composite 
elastic  moduli  and  thermal  coefficients.  The  stresses  in  the  inclusion 
at  the  point  where  the  inclusion  crosses  the  x  and  y  axes  cannot  be  cal¬ 
culated  and  have  been  arbitrarily  printed  as  zeros. 

C.  5.4  SUBROUTINE  SIGMAB 

This  subroutine  is  called  by  the  main  program,  TRANSTRESS,  to 
calculate  the  average  CTx  and  a  stresses  existing  along  the  x  =  a  and  y  =  b 
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boundaries  for  each  of  the  three  intermediate  solutions.  The  necessary 
arguments  are  transmitted  through  the  CALL  statement. 

C.  5.5  SUBROUTINE  PART 

Subroutine  PART  is  called  by  Subroutine  STRSTS  and  Subroutine 
SIGMAB  to  calculate  the  partial  derivative  of  u  or  v  with  respect  to 
x  or  y.  The  CALL  statement  transmits  the  necessary  arguments  and 
indicates  the  difference  scheme  to  be  used,  i.  e. ,  forward,  central  or 
backward. 


C.  6  INPUT  PARAMETER  DEFINITIONS 


Parameter 

TITLE 


M 

N 

NRX 


NRD 

IM 


IN 


Definition 

TITLE  is  an  alphanumeric  description  of  the 
particular  problem  under  consideration  (up 
to  72  characters). 

M  and  N  define  the  grid  lines  bounding  the 
fundamental  region  at  x  =  a  and  y  =  b, 
respectively  (see  Figure  C-l). 

NRX  is  the  maximum  number  of  times  the 
program  will  execute  Subroutine  RELXTS 
between  successive  returns  to  Subroutine 
RESDTS. 

NRD  is  the  number  of  times  the  program 
will  enter  Subroutine  RESDTS. 

IM  is  the  number  of  the  I  coordinate  line 
at  which  the  inclusion  crosses  the  x-axis, 
grid  node  (IM,  3). 

Grid  nodes  are  indexed  in  the  program 
as  (I,  J). 

IN  is  the  number  of  the  J  coordinate  line  at 
which  the  inclusion  crosses  the  y-axis,  grid 
node  (3,  IN). 
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Parameter 


Definition 


NPRLX 


NCPRLX 


NL 


NMFI 


NPRLX  is  an  integer  such  that  subroutine 
RELXTS  will  be  printed  at  every  integral 
multiple  of  NPRLX. 

NCPRLX  is  an  integer  which  indicates  the 
number  of  consecutive  outputs  of  the  results 
of  Subroutine  RELXTS,  beginning  with  the 
first  entry  to  RELXTS,  i.  e.  ,  the  first 
NCPRLX  outputs  of  Subroutine  RELXTS 
will  be  printed. 

NL  is  the  number  of  grid  nodes  lying  on  the 
inclusion  interface  and  includes  the  grid 
nodes  referenced  in  the  definitions  of  IM 
and  IN. 

Construct  a  line  perpendicular  to  the  y-axis 
and  passing  through  the  grid  node  refer¬ 
enced  in  the  definition  of  IN  and  another 
line  perpendicular  to  the  x-axis  and  passing 
through  the  grid  node  referenced  in  the 
definition  of  IM.  These  lines  will  intersect 
at  some  grid  node  (c,  d). 

NMFI  is  the  number  of  grid  nodes  contained 
in  the  region  exterior  to  the  inclusion  and 
its  interface  node  points,  but  lying  on  or 
within  the  lines  constructed  through  point 
(c,  d). 


Note:  The  grid  nodes  referenced  in  the  de¬ 
finitions  of  IM  and  IN  are  not  included  in 
the  above  sum. 
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Parameter 


Definition 


NTP 


NRXBT 


KPSPS 


Example:  NMFI  =  10 


EXAMPLE:  NMFI  =  10 


y 


NTP  is  the  number  of  test  points 
(1  <  NTP  <  10). 

Note:  Choose  as  test  points  only  those  grid 
nodes  which  are  interior  to  the 
matrix. 

NRXBT  is  the  number  of  times  the  program 
will  execute  Subroutine  RELXTS  before 
testing  the  selected  test  points. 

KPSPS  =  0  indicates  that  the  program  will 
execute  the  case  of  plane  stress. 

KPSPS  =  1  indicates  that  the  program  will 

execute  the  case  of  plane  strain. 
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Parameter 


Definition 


KSYM 


MATRIX  IJ  TP 


PCGPRX 


MATRIX  HX 


MATRIX  HY 


KSYM  =  0  indicates  an  unsymmetrical 
inclusion  or  inclusion  spacing.  An  inclu¬ 
sion  is  unsymmetrical  if,  when  rotated 
90  degrees  about  its  longitudinal  axis,  the 
transformed  inclusion  does  not  occupy  the 
same  space  as  the  original  inclusion. 

KSYM  =  1  indicates  that  both  inclusion  and 

spacing  are  symmetrical. 

MATRIX  IJTP  contains  the  coordinates  of 
the  test  points  used  in  testing  the  percent 
change  of  stress  per  relax 

IJTP  (2N-1)  =  I  coordinate  and 

IJTP  (2N)  =  J  coordinate  of  the 

Nth  test  point. 

PCGPRX  is  the  maximum  percent  change 
in  stress  allowed  at  any  of  the  test  points, 
per  relax,  before  exiting  from  Subroutine 
RELXTS. 

HX(I)  is  the  absolute  value  of  the  distance 
between  grid  lines  I  and  I  +  1, 

HY(J)  is  the  absolute  value  of  the  distance 
between  grid  lines  J  and  J+l. 

EM  is  the  modulus  of  elasticity,  E  ,  of 
the  matrix  (lb/in.  ^). 


EM 


Parameter 


Definition 


EF  EF  is  the  modulus  of  elasticity,  Ef}  of  the 

2  1 
filament  (lb/in.  ). 

ALPHAM  ALPHAM  is  the  coefficient  of  thermal 

expansion,  0!^,  of  the  matrix 
(in.  /in.  / deg  F). 

ALPHAF  ALPHAF  is  the  coefficient  of  thermal  ex¬ 

pansion,  a £,  of  the  filament 
(in.  / in.  / deg  F). 

PRM  PRM  is  the  Poisson's  ratio,  V^9  of  the 

matrix. 

PRF  PRF  is  the  Poisson's  ratio,  V ^  of  the 

filament. 

OMB  OMB  is  the  relaxation  factor  to  be  used. 

0  <  OMB  <  2,  with  optimum  convergence 
usually  being  obtained  for  OMB  near  1.7. 

YF  VF  is  the  percent  fiber  content  by  volume 

of  the  composite. 

Note:  VF  is  input  for  printout  purposes 
only  and  is  not  used  in  the 
calculations. 

T  is  the  uniform  temperature  change  (plus 
or  minus)  from  that  temperature  corre¬ 
sponding  to  the  zero  thermal  stress  state 
(deg  F). 


T 


Parameter 


Definition 


MATRICES  LI,  LJ  Associated  with  each  grid  node  on  the  inter¬ 

face  of  the  inclusion  is  an  L  number.  The 
grid  node  referenced  in  the  definition  of  IN 
has  an  L  number  equal  to  1,  i.  e.,  L  =  1. 

Proceeding  clockwise  along  the  interface, 
the  next  grid  node  has  an  L  number  equal 
to  2,  i.  e.  ,  L  =  2.  Continuing  as  describ¬ 
ed  above  implies  that  the  grid  node  referenc¬ 
ed  in  the  definition  of  IM  has  an  L  number 
equal  to  NL,  i.e,,  L  a  NL.  Matrices 
LI  and  LJ  contain  the  I  and  J  coordinates 
respectively,  of  the  grid  nodes  on  the 
interface  of  the  inclusion  where  LI(N)  is 
the  I  coordinate  and  LJ(N)  is  the  J 
coordinate  of  that  grid  node  whose  L 
number  is  equal  to  N,  i.e.,  L  =  N. 

MATRICES  COST,  SINT  MATRICES  COST  and  SINT  contain  Cos0 

n 

and  Sin0  ,  respectively,  where  0  is 
n  n 

defined  as  follows: 

For  an  arbitrary  grid  node  (I,  J)  on  the 
interface  of  the  inclusion  whose  L  number 
is  some  value  such  that  1  <  L  <  NL, 

9n  defined  as  the  angle  between  the 
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Parameter 


Definition 


SIGXB 


SIGYB 


MATRICES  MFII, 


normal  to  the  inclusion  surface  at  (I,  J)  and 
the  positive  x-axis.  Thus 

COST  (L)  =  COS  0n 

SINT  (L)  =  SIN  0n 

For  L  =  1,  i.  e.,  the  grid  node  referenced 

in  the  definition  of  IN,  ©n  is  defined  to  be 
90  degrees  which  implies 

COST  (1)  =  COS  90°  =  0.0 

SINT  (1)  =  SIN  90°  =  1.0 

For  L  =  NL,  i.  e.  ,  the  grid  node  refer¬ 
enced  in  the  definition  of  IM,  @n  is  defined 
to  be  0  degrees  which  implies 

COST  (NL)  =  COS  0°  =  1.0 
SINT  (NL)  =  SIN  0°  =0.0 

SIGXB  is  the  desired  average  normal  stress 
(lb/in.  )  at  infinity  in  the  x-direction. 

SIGYB  is  the  desired  average  normal  stress 
(lb/ in.  2 )  at  infinity  in  the  y- direction. 

MFIJ  MATRICES  MFII  and  MFIJ  contain  the  I 

and  J  coordinates  respectively  of  those 
grid  nodes  referenced  in  the  definition  of 
NMFI.  No  particular  input  order  is 
required. 
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INPUT  DATA  CARD  LISTING 


Card  No. 

Parameter 

Data  Field 

Format 

1 

TITLE 

1-72 

12A6 

2 

M,  N,  NRX, 

1-3,  4-6,  7-9, 

13 

NRD,  IM,  IN , 

10-12,  13-15, 16-18, 

13 

NPRLX,  NCPRLX  , 

19-21,  22-24, 

13 

NL,  NMFI,  NTP, 

25-27, 28-30, 31-33, 

13 

NRXBT,  KPSPS, 

34-36,  37-39, 

13 

KSYM 

40-42 

13 

3 

IJTP 

1-60 

13 

4 

PCGPRX 

1-12 

E 12.  6 

5  to  L 

HX(I) 

1-72 

EI2.  6 

I  =  3 . M-l 

Note:  Card  No.  L  =  [ +  5  where  [  ]  represents 
the  greatest  integer  function.  The  maximum 
allowable  value  of  L  is  7. 

L+l  to  K  HY(J)  1-72  E12.6 

J  =  3...N-1 

Note:  Card  No,  K  —  f  — -g— ]  +  (L+l)  where  C  3  represents 
the  greatest  integer  function.  The  maximum  value 
of  K  is  L  +  3. 


K+l 

EM,  EF,  ALPHAM 

1-36 

E12.  6 

ALPHAF,  PRM,  PRF 

37-72 

E12.  6 

K+2 

OMB,  CHI,  T 

1-36 

E12.  6 

K+3  to  J 

LI(L),  LJ(L) 

L  =  1.  .  .  .NL 

1-72 

13 

J+l  to  I 

COST(L),  SINT(L) 

L  =  1.  . .  .NL 

1-72 

E12.6 
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Card  No. 

Parameter 

Data  Field 

Format 

1+1 

SIGXB,  SIGYB 

1-24 

E12.6 

1+2  to  LC 

MFII(K),  MFIJ(K) 

1-72 

13 

K=l. . .  NMFI 

C.  7  OUTPUT  OF  PROGRAM 

(1)  Repeated  input  data 

(2)  Dimensions  of  the  first  quadrant  of  the  fundamental 
region,  A  and  B,  where 

M-l 

A  =  £  HX  (I) 

1=3 

N-l 

B  =  S  HY  (J) 

J=3 

(3)  Problem  1 

(a)  Results  of  the  kth  entry  into  Subroutine  RESDTS 

(b)  Results  of  Subroutine  RELXTS,  NCPRLX  consecutive 
times,  every  integral  multiple  of  NPRLX,  and  the 
last  execution. 

Note:  (a)  and  (b)  are  printed  consecutively  for  each  value 
of  k  where  k  =  1.  .  .  NRD. 

Output  includes  the  I  and  J  coordinates  of  each  node  of  the  grid 
array,  the  corresponding  displacements  in  the  u  and  v  directions, 
and  the  u  and  v  residuals  at  each  grid  node. 
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Problem  2 

For  KSYM  =  0,  (a)  and  (b)  are  as  described  for  Problem  1. 
For  KSYM  =  1,  the  RESDTS  and  RELXTS  Subroutines  are 

not  executed. 

Problem  3 

(a)  and  (b)  are  as  described  for  Problem  1. 

(4)  Results  of  Subroutine  STRSTS  for  Problem  1  and  Problem  2 
are  combined  to  obtain  the  desired  solution  for  specified 
values  of  and  (7^  with  T  =  0,  i.  e. ,  no  temperature 
effect  being  included. 

Note:  Subroutine  STRSTS  will  not  be  executed  in  (4)  if 
SIGXB  and  SIGYB  are  both  equal  to  zero. 

Output  will  include: 

(a)  SIGXB,  SIGYB,  and  Temperature  (T  =  0) 

(b)  The  I  and  J  coordinates  of  each  grid  node  and  the 
corresponding  u  and  v  displacements. 

(c)  The  stress  components  at  the  interior  and  boundary 
nodes,  i.  e.  ,  SIGMA  X,  SIGMA  Y,  SIGMA  Z  and 
TAU  XY. 

(d)  The  stress  components  at  the  interface  nodes  for 
both  filament  and  matrix. 


(e)  The  principal  stresses  at  the  interior  and  boundary 
nodes,  i.  e.  ,  SIGMA  1,  SIGMA  2,  THETA*  ,  and  the 
von  Mises  sum. 

(f)  The  principal  stresses  at  the  interface  nodes  for 
both  filament  and  matrix. 

(g)  EX  and  EY  which  are  defined  as  the  effective 

2 

composite  elastic  moduli  (lb/in,  )  in  the  x  and  y 
directions,  respectively, 

(h)  ALPHAX  and  ALPHAY  which  are  defined  as  the 
effective  composite  thermal  expansion  coefficients 
(in.  /in.  /deg  F)  in  the  x  and  y  directions, 
respectively. 

*Theta  is  defined  as  the  angle  (degrees)  measured  from  the  positive  x-axis 
to  the  direction  of  the  maximum  principal  stress  axis. 

*The  von  Mises  sum  represents  a  2 -dimensional  yield  criterion  which  is 
defined  as  follows: 

(a)  For  a  plane  stress  solution,  i,  e.  ,  if  KPSPS  =  1 

2  2 
von  Mises  sum  =  CT  ^ 

(b)  For  a  plane  strain  solution,  i.  e.  ,  if  KPSPS  -  2 

von  Mises  sum  =  (1  -  t'  +  l'2)  cr2  -  (1  +  2v  -  Zv2)  a  a 

1  12 

+  (1  -  V  VZ)  0Z 

where  V  is  Poisson's  ratio. 
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(5)  Results  of  Subroutine  STRSTS  for  Problems  1,  2,  and  3 

are  combined  to  obtain  the  solution  for  T  /  0,  cr  =  C X  =  0. 

x  y 

Note:  Subroutine  STRSTS  will  not  be  executed  in  (5)  if 
temperature,  T,  equals  zero. 

Output  format  is  the  same  as  described  in  (4) 

(6)  Results  of  Subroutine  STRSTS  for  Problems  1,  2  and  3 

are  combined  to  obtain  the  solution  for  T,  cr^,  and  cr ^ 

all  non-zero. 

Note:  Subroutine  STRSTS  will  not  be  executed  in  (6)  if 
either  temperature,  T,  is  zero  or  if  SIGXB  and 
SIGYB  are  both  equal  to  zero  since  this  would  be 
a  repetition  of  (5)  or  (4),  respectively. 

Output  format  is  the  same  as  described  in  (4). 

C.8  PROGRAM  LISTING 

Included  at  the  end  of  this  appendix  is  a  listing  of  the  Fortran  state¬ 
ments  which  make  up  the  transverse  stress  program,  TRANSTRESS,  and  its 
supporting  subroutines. 

C.  9  SAMPLE  PROBLEM 

The  sample  output  presented  at  the  end  of  this  appendix  is  that  ob¬ 
tained  for  circular  elastic  inclusions  with  a  fiber  to  matrix  modulus  ratio 
of  21. 5  to  1  and  a  fiber  volume  of  40  percent.  The  imposed  loading  consists 
of  an  average  component  stress  (7^  at  infinity  of  1000  psi,  an  average  com¬ 
ponent  stress  Oy  at  infinity  of  zero  psi  and  zero  temperature  change.  The 
solution  is  for  an  assumed  plane  stress  condition  and  is  the  result  after 
150  relaxation  cycles. 
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The  effective  composite  modulii,  EX  and  EY,  are  equal  since  the 
inclusion  shape  and  spacing  is  symmetrical  in  both  coordinate  directions. 

Program  refinement  is  being  continued  in  an  effort  to  eliminate  cer¬ 
tain  limitations  encountered  with  the  present  solution.  Particular  emphasis 
is  being  directed  toward  improving  the  equations  developed  to  allow  the  re¬ 
laxation  process  to  extend  across  the  inclusion-matrix  interface.  This  will 
eliminate  the  need  for  variable  coefficients  which  in  the  present  method 
must  be  calculated  each  relaxation  cycle.  The  particular  method  presently 
used  of  combining  the  equilibrium  equations  into  a  form  best  suited  for 
unequal  grid  spacing  also  has  one  disadvantage.  In  this  form,  certain  terms 
are  lost  from  the  equations  when  equal  grid  spacing  is  used  and  can  result 
in  a  divergent  solution  form. 
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TRANSVERSE  STRESS  CONTINUED 


(J)  COMBINE  NODAL  POINT  DISPLACEMENTS 
FROM  PROBLEMS  1  AND  2  TO  OBTAIN  A 
DISPLACEMENT  FIELD  WHERE  LOAOING 
IS  IN  THE  Y-DIRECTION  ONLY. 
CALCULATE  EY  _ 


IS  SIGXB  =  0.0  AND  SIGYB  =  0.0; 


©  IcOMBINE  DISPLACEMENT  FIELDS  ©  AND  ©I 


CALL  SUBROUTINE  STRSTS 


COMBINE  NODAL  POINT  DISPLACEMENTS 
FROM®,  ©  AND  PROBLEM  3 
CALCULATE  ALPHAX  AND  ALPHAY 


CALL  SUBROUTINE  STRSTS 


IS  SIGXB  =  0.0  AND  SIGYB  =  0.0? 


■s  Zm  YES  JWRITE  NODAL  POINT  COORDINATE*^ 
IS  NRXS  —  NRX7  J  ^DISPLACEMENTS  AND  RESIDUALS  1 


COMBINE  DISPLACEMENT  FIELDS  ©  AND  © 
i.e.  OBTAIN  THE  DISPLACEMENT  FIELD  UNDER 
COMBINED  CONDITIONS  OF  LOADING  AND 
TEMPERATURE 


JNPRXS  =  NPRXS  +  1 


CALL  SUBROUTINE  STRSTS 


CALCULATE  COEFFICIENT 
MULTIPLICATION  FACTORS  BASED 
ON  EXISTING  DISPLACEMENTS 
FOR  ALL  NODES  RELAXED 
ACROSS  THE  INTERFACE  BOUNDARY 


CALCULATE  COEFFICIENT 
MULTIPLICATION  FACTORS  BASED 
ON  EXISTING  DISPLACEMENTS 
FOR  ALL  NODES  RELAXED 
ACROSS  THE  INTERFACE  BOUNDARY 


INDEXING  ON  I,  J  IS  SUCH  THAT 
THE  RELAXATION  TECHNIQUE  IS 
CARRIED  OUT  ALONG  THE  COLUMNS, 
i.e.  FROM  UPPER  BOUNDARY  TO 
LOWER  BOUNDARY  MOVING  FROM 
THE  RIGHT  BOUNDARY  TO  THE 
LEFT  BOUNDARY. 


INDEXING  ON  I,  J  IS  SUCH  THAT 
THE  RELAXATION  TECHNIQUE  IS 
CARRIED. OUT  ALONG  THE  ROWS, 
i.e.  FROM  RIGHT  BOUNDARY  TO 
LEFT  BOUNDARY  MOVING  FROM 
THE  UPPER  BOUNDARY  TO  THE 
LOWER  BOUNDARY 


,  IDENTIFY  NODE  TYPE  AT  I,  J 


STORE  THE  COEFFICIENTS  OF  Uij 
AND/OR  Vij  OCCURRING  IN  THE 
RESIDUAL  EQUATION(S)  DERIVED  FOR 
THE  ABOVE  NODE  TYPE 


RELAX  SURROUNDING  NODES  IF  THE 
DISPLACEMENT  AT  NODE  I,  J  AFFECTS 
THE  SURROUNDING  RESIDUALS 


CALCULATE  THE  U  AND  V  DISPLACEMENT 
AT  NODE  I,  J. 

RELAX  NODE  I,  J. 


CALCULATE  ay 
AT  EACH  TEST  POINT 


IS  PCG  <  PCG  PRX 


IS  NRXS  <  NRXBT 


,  NRXS  <  NCPRLX? 


WRITE  NRXS,  KPROB,  NODAL  POINT 
COORDINATES,  DISPLACEMENTS  AND  RESIDUALS 


WRITE  NRXS,  KPROB,  NODAL  POINT 
COORDINATES,  DISPLACEMENTS  AND 
RESIDUALS 


SUBROUTINE  STRSTS 


SUBROUTINE  SIGMAB 


SUBROUTINE  PART 


FORTRAN  IV  COMPUTER  LISTING 


FORTRAN  FAR 


CTRAN5TRESS 

COMMON  U,V,REU,REV,USAVC,VSAVE,U1,V2,SIGX,SIGY,SIGZ.SIGXY,CAT, 
XSIGXB,SIGXBS,S1GYB,SIGVBS.SIGXM,S1GYM,SIGZM,SIGXF,SIGYF,SIGZF, 

XHX, IIY,  OMB,  PRM.PRF,  EM,  EF, ALPH AM, ALPHAF , T , EX, EY, FI ,F2 , COST, SINT, 
XC1,C2,C3.C4,C5,C6,C7,C8,C9,C1O,C11,C12,C13,C14,C15,C16,C17,C10, 
XC19,C2G,C2l,C22,C23,C24,C25,C26,C27,C28,C29,C30»C31»C32,C33,C34, 
XC35,C36,C37,C3B,C39,C4D,C41,C42,C43»C44,C45.C46,C47tC4e, 

XOt, 02, 03, 04, 03, C6, 07. 06, 09, 01C, 01 I, 012, 

XEl,E2,E3,E4,E5,E6,E7,E&,£9,ei0,Ell,E12,E13,El4,E15,£i6,E17,E18,E19 

X.E2C,E21,E22,E23,E24,E25,E26,E27,E28,E29,E30,E31,E3Z 

X, AM, AF,BM,BF,CM,CF,OM,DF,  FM , FF , GM, GF ,HM , HF , 

XMP2.MP1 ,M,MM1 ,MM2,MM3,NP2,NP1,N,NM1,NM2,NM3, INP3, INP2, I NP1 , IN, 
XINMi,INM2, INM3, IMP3, IMP2, IMP1, IK, IMM1, IMM2, |MM3,NL,NLM1,NLM2, 
XLN.Ll  ,U,lAT,KNAT,NMFI,MFIJ,MFI,KNT,KPROB,  IJTP.MFIl, 

XNRX ,NRD, NRXS,NRDS,NPRLX,NCPRLX,NTP,NPT,SIGRl,SIGR2, PCGPRX, S l GR , 
XNRXBT,UL,VL ,KPSPS , A, B, KSYM.NKPROB 
X.ALPHAX.ALPHAY, I JRAI P, DA, DB,  NRAl P 

DIMENSION  U(20,20),V(20,20),REU(20,20),REV(20,20), 

Xc  1(17, 17), E  2(17, 17), E  3117, 17), E  4(17, 17), E  5(17, 17), E  6(17,17), 
XE  7(17, 17), E  8(17, 17), E  9 ( 17 , 1 7 > , E10I 17, 17 > .Ell ( 1 7, 17 ) , E12 ( 17, 1 7 ) , 
XE13(1T,17),E14(17,17>,EL5<17,17),E16( 17, 17) , E 17 ( 17, 1 7) ,E18(17,17) , 
XE19(i7, 17), E  20  (17,171, E2K17, 17), E22(17, 17), £23(17, 17), £24  (17,17), 
XE25(17,17),E26( 17,17),E27( 17,17),E28( 17, 17), E 29 (17, 17) ,E 30 (17,17) , 
XE3K17, 17)  ,£32(17,17), 

XLNI20.20)  ,MF  I  (20,20  , KMT  (20,20  ),MFU  (200), MFIJ(  200) 

DIMENSION  SIGXM(40),SIGYM(40),SlG2M(4t),SIGXF(4G), SI5YF (40 ) » 
XSIGZFI4C) .COST (40), SINT (40) , 

XC  1(40), C  2(401, C  3(40), C  4(40), C  5(40), C  6(40), C  7(40), C  8140), 

XC  9(40)  ,C10(40  I  ,CL1(40)  ,CX2(  40)  ,03(40)  ,04(40)  ,05(40)  ,C16(40)  , 
XC17140)  , Cl  8  (40)  ,C19(40),C2C'(40),C21(40),C22(40)  ,C23  (  40  )  ,C24  (40  )  , 
XC25 ( 40 ) ,C26(40),C27(40),C2B(40),C29(40),C30(40),C31(40) ,C32(40) , 
XC33140) ,C34(40 ) ,C35I40),C36(4C ),C37(40) ,C38(40) ,L 1 (40) ,  LJ (40 ) 

D 1  Mt  NS  I  ON  HX(20),HY(20),  I  JTP(  20),  01  (20, 02(20)  ,03(20,04(20), 

X 05 (20 ), 06 1 20 ),D7( 20), 08 (20  I, 09(20), 010  I  20 ) , Dll ( 20 ) , 012 ( 20) , 
XSIGK1(10),SIGR2(10),IJRAIP(30),  DA(15),  DB( 15 1 

D1 Me  NS  ION  TITLE! 12), UKP 1(20, 20) ,VKP1( 20,20 ) ,UKP2( 20,20 ) , 

XVKP2 (20,20) 

C 

C  A  RELAXATION  SOLUTION  OF  THE  TRANSVERSE  STRESS  PROBLEM  FOR  A 

C  DOUBLY  PERIODIC  RECTANGULAR  ARRAY  OF  ELASTIC  INCLUSIONS  IN  AN 

C  INFINITE  ELASTIC  BODY 

C 

1  00  102  1=1,20 
00  102  J=1,2C 
U(I,J)=0.0 
V(1,J)=0.0 
REU( I , J)=0»C 
REV!  I  ,JI*O.C 
102  MF I ( I , J ) =0 
ALPHAX=0.0 
ALPHAY*0.0 
FF  =0  .0 
FM=G.O 

101  READ  (8,208)  TITLE 

READ  (8,201)  M.N.NRX.NRD, IM, IN, NPRLX.NCPRLX.NL, NMFI.NTP 
1 ,NRXBT,KPSPS,KSYM,NRAIP 

C  KPSPS=1  FCR  PLANE  STRESS  KPSPS*2  FOR  PLANE  STRAIN 
C  KSYK=0  FOR  UNSYMMETRICAL  INCLUSION  OR  INCLUSION  SPACING 

C  KSYM= l  IF  BCTH  INCLUSION  AND  SPACING  ARE  SYMMETRICAL 

NTP2=NTP«2 

READ  (8,201)  ( 1 JTP  <  1 J  ) , I J*1 ,NTP2  > 


DD  44  IJ=l,10 
SIGRH  IJ)=0.0 
44  S  IGR2 ( I J ) =0 .0 

REAC ( 8 , 202 )  PCGPRX 
NRAI P2=2*NRAIP 

READ  (8,201)  (  I  JRAIPI IJ) , U*1,NRAIP2) 

READ  (8 ,202)  ( (  DAUJI,  DB(  IJ)  ) ,  IJ  =  1,NRAIP) 

MM1=M-1 

MM2  =  M,-2 

MM3=M-3 

NM1=N-1 

NM2=N-2 

NM3*N-3 

HP 1  =  M  + 1 

MP2=M+2 

NPI *  N  +  l 

NP2=N+2 

NLM1=NL-1 

NLM2=NL-2 

IMP3=IM*3 

IMP2= IM+2 

IMP1* IM+1 

IMM1MM-1 

IHM2= IM-2 

1 MM3* I M-3 

INP3* IN+3 

I NP2= I N+2 

I NPi = I N+l 

INM1* IN-1 

INM2=IN-2 

INM3* I N-3 

READ  (8,202)  (HX( I ) , I =3 , MM  1  ) 

READ  (8,202)  ( HY ( J ) , J  =  3» NMl ) 

A=0. 0 
0=0.0 

DO  42  1*3, MM1 

42  A= A+HX ( I > 

DO  43  J=3,NM1 

43  B=B+HY ( J ) 

HX(M)*HX(MM1 ) 

HX ( MP1 )=HX ( MM2 ) 

HY(N) *HY(NM1 I 
HY( NPI ) =HY ( NM2 ) 

HX(2 )=HX(3) 

HX ( 1 ) =HX  1 4 ) 

HY 1 2 ) *HY ( 3  I 
HY ( 1 ) =HY ( 4 ) 

REAU  (8,202)  EM, EF.ALPHAM, ALPHAF, PRH.PRF, OMB, VF  ,T 
READ  (8,201)  ((LI(L),LJ(L)),L*1,NL) 

READ  (8,202)  I (COS TIL), SI  NT (L) ) ,L  =  1*NL) 

READ  (8,202)  StGXB.SIGYB 
DO  33  1=3, M 
DO  33  J= I NP 1 , N 

33  HFI(I,J)*1 

00  34  I = I MP1 , M 
DO  34  J  =  3  ,  IN 

34  MFI( I , J } = 1 
00  35  1*3,  IM 
00  35  J=3, IN 

35  MF I ( 1 , J  )  =2 

READ  18,201)  ( (MFt I(K) ,MFIJ(K) ),K=1,NMFI ) 

DO  36  K=i,NMFI 


I  =MF 1 1 ( K ) 

J  =  MF l J I K  > 

36  MFl(l,J)»l 
00  37  L=1,NL 
t=Ll ( L) 

J=LJIL» 

37  MFI(l»J)=3 
00  12  L=1,NL 
1  =  L 1  ID 

J=L J ( L I 
LN ( 1 , J ) =1 
12  CONTINUE 

DO  20  1  =  4*MM 
un  20  j=4,nri 
KNT ( 1 >  J )=2 

20  CONTINUE 

DO  21  J=1,NP2 
KNT(l,Jl=i 
KNTI2, J )=1 
KNTIMPL, J)-I 
KNT(MP2,J)=1 

21  CONTINUE 

DO  22  1=3, M 
KNT (1(11=1 
KNT ( 1 ,2 )  =  1 
KNT  t I » NP 1 )  =  l 
KNT ( I ,NP2 I *1 

22  CONTINUE 

DO  23  J  =  4  »  NP1 
KNT ( 3  » J ) ~  B 
KNT ( M, J ) =9 

23  CONTINUE 

DC  24  1=4, MM1 
KNT(I,3)=iO 
KN  TCI , N )  =  1 1 

24  CONTINUE 
KNT ( 3 i 3 ) = 12 
KN  T  (  3  *  N  )  =  1  3 
KNT I M,N)=I4 
KNT(H,3)=15 

00  25  L=2»NLM1 
I =L 1 1 L  ) 

J=L J I L ) 

KNT ( I , J )=3 

25  CONTINUE 
GM=EM/<2.0»I 1.0*PRP> ) 

GF=EF/<2.G*ll.0*PRF>  > 

GO  TO  161,621 .KPSPS 

61  A*s( l.O-PRMl/I 1.0*PRMI 
AF= 1 1 ,0-PRF  J / 1 1 .OfPRF I 
BM=£M/( ll.O+PRMm  1.0-PRMH 
BF=EF/t(1.0*PRFI«ll»0-PRF)) 

CM=PRR 

CF=PRF 
DM=G.0 
0F=0.0 
HM=0.0 
HF=i>.C 
GO  TO  63 

62  AM=i.C-2.0*PRM 
AF=1.C-2.0*PRF 

BM=< I L.O-PRPI-EPJ/ ( U.O+PRMI #( 1.0-2.0»PRMIJ 


BF=Ui.O-PRFl*EFm  I  1.0*PRF)*1  1.0-2.0»PRF) ) 
CM=PRP/(1.0-PRP) 

CF=PRF/<1.0-PRF) 

DP=(PRM»EM)/1 (1. 0+PRM)*{ 1. 0-2.0 *PRM) ) 

UF= (PRF*EFI/ II 1.0 +PRF)*( 1.0-2. 0«PRF1) 

HM  =  FM 
HF  =  FF 

63  CONTINUE 

00  4  1=4, MM1 
DO  4  J=4 , NM1 
A 1*HX ( I ) 

A2  =HY ( J ) 

A3=HX(I-1» 

A4=HY I J-l ) 

IF  (MFI II, J) .E0.2)  GO  T03310 
G=GH 
P  =  AH 

GO  T03311 

3310  G=GF 
P=AF 

3311  EE1  =  2.0/(A1»(A1  +  A3M 
EE2=-2.0/tAl»A3) 

EE3=2.0/IA3*tAUA3>) 

EE4=2.0/(A2*I A2*A4>  ) 

EE5=-2.C/< A2*A41 
EE6=Z.0/<A4*IA2*A4)> 

EE16  =  1.C/<A1*A2«A3»A4»(A1«-A3)*IA2+A4I I 

EE7=A3«»2*A4*«2*EE16 

EEB=EE16*( A2«»2-A4**2)»A3»»2 

EE9=-E£16»A2»»2»A3»«2 

EE10=E£16*(Al*»2-A3*»2t»A4»*2 

£Eli=EE16»I Al**2-A3»«2)«eA2*»2-A4**2I 

EE12=EE16»(A1*»2-A3»*2)*{“A2**2) 

EE13=EE16*I-Ai**2)»A4»*2 

EE14=EE16*I-Al*»2>»( A2»*2~A4*«2) 

EE15=EE16»(-Al*»2)*I-A2»»2l 

EE21=G*(P+1.0)*FE2*G*P»EE5 

EE22=G«tP+l*0)»EEl 

EE23=G*P*EE4 

E£24=G*(P+1.0)*E£3 

EE25=G«P«EE6 

EE26=G*FE1 1 

EE27=C«EE8 

EE28=G«EE10 

EE29=G*£E14 

EE30=G«EE12 

EE31=G»EE7 

EE32=G*EE13 

EE33=G»EE15 

EE34*G*EE9 

EE35=G*P»EE2+G*(P*1.0)*EE5 
EE36=G»P*EE1 
EE37=G*(P+1.0I*EE4 
EE3ti=G*P»EE3 
EE39=G*(P+1.0)*EE6 
EE40=EC26/EE35 
EE41=EE26/EE21 
E  1 1 1 , J )=EE21-EE40»EE26 
E  2 < I,J)  =  EE22-EE40»EE27 
E  31 l,J>=EE23-6E40»EE28 
E  41 I,JI=EE24-EE40*EE29 
E  5 l I , J I *£E25-£E40*EE30 


E  6( l*J)=-EE40»EE31 
E  71 1 t J)=EE27-EE40*EF36 
E  B(I,J)=EE28-EE40*EE37 
E  91 I,J)=EE29-EE40«EE38 
E 10 1 1 1 J )=EE30-£E40»£E39 
Oil! L,J)=E£31 
E12( I  * J )=EE32 
E13(I»J)*E633 
E14( l»J J=EE34 
E15I l,J)=EE35-EE41«EE26 
E161I ,J»=EE36-EE41*EE27 
E171 I,J)=EE37-EE4l-£E28 
F181 I,J)=EE38-EE41«£E29 
E19 1  I ,J)  =  EE39-EE41»EE30 
E20 1 1 , J ) =-EE40*EE32 
E2U  I ,  J)=-EE40*EE33 
E22 ( 1  *  J ) =“EE40*£E  34 
E23 1 1  *  J ) =EE27-EE4i»E£22 
E241  I,J)  =  EE28-EE41*EE23 
E251 I,J)=£F29-EE41»EE24 
E261  I»J)=EE30-EE41*EE25 
E271I • J I =-EE41 »EE31 
E28 ( I ,J)=-EE41»FE32 
E2911, JJ=-EE41*Et33 
E3011  ,J)=-EE41»EE34 
E  31 ( l » J )  =  El 1 (  I  ,  J  ) 

E321 t  » J )  =  E 1 3 1 1 1 J 1 
4  CONTINUE 

DO  7  L=3,NLH2 
1=11(1) 

J  =  L J  1 L ) 

A 1  =  HX ( 1  ) 

A2=HY( J) 

A3=HX ( I - l ) 

A4=HV I  J-l ) 

A9  =  A1+HX{  IMI 
A10= A2+HY 1  J  +  l  ) 

AU  =  A3  +  HX(  1-2) 

A 12  =  A4  +  HY 1 J-2 ) 

CC  i =COST ( L ) **2 
CC  2  =  S I  NT  1 L )  »»2 
CC  4»C0SML)*S1NTCLI 
CC  3=2.C»CC4 


CC  5=-CC4 

CC18*CC2-CC1 

CC6=-( A9+A1 )/( A1»A9) 

CC7=A9/(A1*(A9-AI)  ) 

CC8  =  -A1/1 A9»<  A9-A1 > ) 

CC9=-(A1C+A2)/(A2*A10> 

CC10=AIC/( A2KA10-A2 ) ) 

CCll=-A2/< A10»( A10-A2) I 
CC12=(A11+A3)/IA3»A11) 

CC13=-AU/iA3*( A 11 -A  3) ) 

CC14=A3/1A11*1 A11-A3) ) 

CC15= l A12*A4)/<  A4«A12) 

CCio=-A12/(A4»(A12-A4) ) 

CC17=A4/(A12*1A12-A4)) 

CC2i  =  CCl*<BM*CC6-BF»CC12)*CC2»t  6M*CH*CC6-BF*CF*CC12) 


1  ♦CC3»<Gf'«CC9-GF*CC15) 

CC22=CC1«I BK*CM*CC9-8F»CF*CC 15 ) *CC2»( 6H*CC9-BF»CC1 5 ) 
1  +CC3»(GMCC6-GF«CC12  J 

CC23=CC1*BM*CC7+CC2»BM*CH*CC7 


CC24=CC3»GM*CCI0 

CC25=-CC1*BF«CC13-CC2»BF*CF»CC13 
CC26=-CC3»GF»CC16 
CC27=CC1*BM*CC8*CC2»BM«CH»CC8 
CC28=CC3  »GM«CC  1 1 

CC29=-CC1«BF»CC14-CC2«BF*CF»CCL4 

CC3C=-CC3«GF*CC17 

CC31=CC3*GM*CC7 

CC32=CC1*BM«CM*CC10*CC2»BM«CC10 

CC33=-CC3*GF»CCI3 

CC34=-CC1»BF«CF»CC16-CC2*BF*CC16 

CC35=CC3*GM«CC8 

CC36=CC1*BM»CM*CCIKCC2*BK»CC1 1 
CC37=-CC3*GF*CC14 

CC3a=-CCl •BF«CF«CC17-CC2»BF*CC17 
CC39=(CCKCC2)*(FF-FM) 

CC1=CC4 

CC2=CC5 

CC3=CC16 

CC41=CC 1 *( BK»CC6-BF»CC12 >+CC2» ( BH*CM»CC6-BF*CF*CC 12 > 
t  +CC3*(GV»CC9-GF»CCL5) 

CC42=CC1*(BI*»CM*CC9-BF»CF»CC15)*CC2»(BM*CC9~BF*CC15) 

♦CC3*(GK»CC6-GF»CC12 ) 
CC43=CC1*BM«CC7+CC2»B^*CM*CC7 
CC44=CC3*GM«CC1C 

CC45=-CC1 »BF»CC13-CC2*BF»CF»CC13 
CC46=-CC3»GF»CC16 
CC47=CCI*BM»CC8+CC2»BH*CH«CCB 
CC48=CC3*GM«CC11 

CC49=-CCl »BF*CC14-CC2*EF»CF»CC14 

CC50=-CC3«GF*CC17 

CC51=CC3«GM»CC7 

CC52  =  CCl»BM»Cf**CC10+CC2»BM*CC10 
CC53=-CC3«GF«CC13 

CC54=-CC1»BF*CF»CC16-CC2*BF*CC16 

CC55=CC3«GH*CCB 

CC5b=CCi«8H»CM*CCU*CC2«BM»CCll 

CC57=-CC3*GF«CC14 

CC58  =  -CCl  »BF*CF«CC17-CC2»8F»CCn 

CC59=1CC1*CC2)»(FF-FM) 

CC40=CC22/CC42 
CC6C-CC41/CC21 
C  KL)=CC21-CC4i*CC40 
C  21L)=CC22-CC42*CC40 
C  3(L)=CC23-CC43*CC40 
C  4(L  )  =  CC24-CC44*CC40 
C  5(L)=CC25-CC45«CC40 
C  6(L)=CC26-CC46*CC40 
C  7 1 L  )  =  CC27-CC47»CC40 
C  81 L)=CC2B-CC4e»CC40 
C  9(1) =CC29-CC49*CC40 
CIO  1 L ) =CC30-CC5C  »CC40 
C11(L)=CC31-CC51 »CC40 
C12 1 L  )  =CC32-CC52*CC40 
C13 { L  )=CC33-CC53*CC40 
C14(L)=CC34-CC54»CC40 
Cl  5  1  L  )  =  CC3“j-CC55»CC40 
C16 1 L ) =CC36-CC56*CC40 
C171 L)=CC37-CC57  »CC40 
C181L )=CC38-CC58*CC40 
C19(L)=CC39-CC59*CC40 
C201 L )=CC41-CC21 »CC60 


C21(L)=CC42-CC22»CC60 
C22 ( L ) =CC43-CC23»CC60 
C23(L)=CC44-CC24#CC60 
C24 I L ) =CC45-CC25*CC60 
C25 1 L ) =CC46-CC26  «CC60 
C26I  L  >  =  CC47-CC27  »CC60 
C27(l)=CC48-CC28»CC60 
C28 ( L ) *CC49-CC29*CC60 
C29 ( L ) =CC50-CC  30»CC60 
C30(L)=CC51-CC31*CC60 
C31  ( L )=CC52-CC32»CC60 
C32 ( L  )=CC53-CC33*CC60 
C33 ( L 1 =CC54-CC34»CC60 
C34(L ) =CC55-CC35*CC60 
C35 ( L )=CC56-CC  36»CC60 
C36  1  L )=CC57-CC37*CC60 
C37(L)=CC58-CC38*CC60 
C38  I  L ) =CC59-CC39»CC60 

7  CONTINUE 
A2-NYI 3  I 
A1C=HY I  4  I  *A2 
A4=HY (NM1 1 
A12=HY(NM2)+A4 
DO  8  [=4,IMM1 

DKII  =  l-(A10**2-A2**2)/(A2*A10MA10-A2)  )  )*GF 

D2(D  =  ( A10/(A2*(A1C-A2J )  )*GF 

03(11= I -A2/{ A10*( A10-A2I » I *GF 

D4(I)  =  ( (A12**2-A4*»2)/(A4*A12*( A12-A4 ) I  I *GM 

D5(D“(-A12/(A4»( A12-A4 I » I *GM 

06  ( D  =  <  A4/IA12MA12-A4I) >»GM 

8  CONTINUE 

00  81  (  =  |M  , MM1 

D1 <!!  =  (-< AIC*#2-A2»«2>/(A2»A10«(A10-A2) 1 1 *GM 
02 ( I )=( AIO/ I A2*( A10-A2J) )*GH 
03(1 )=(-A2/( A10*( A10-A2 111 *GM 
D4(I >=(( A12*»2-A4*»2)/(A4*A12*I A12-A41I )*GH 
05(1  )  =  (-A12/ I A4» ( AI2-A4) ) )  »CM 
06(11  =  (A4/(A12»(A12-A4in*GM 
81  CONTINUE 
A1=HX ( 3 ) 

A9  =  HX (4 ) +AI 
A3  =  HX  < MV  1 1 
A11=HX(HM2)*A3 
DO  9  J=4,INM1 

07(J)=(-(A9»*2-A1»»2)/(A1»A9»(A9-A1  >  » I  *GF 
D8( J>=( A9/( A1 * ( A9-A11 ) l»GF 
D9< J)=(-Al/( A9.(A9-A1 ))) »GF 

DIO  (  Jl  =  ((An»*2-A3*»2)/(A3«All*(All-A3m»GM 
0111 Jl«(-All/( A3»( A11-A3) >)«GH 
D12( J)=(A3/(A11»( A11-A31 1 )»GM 

9  CONTINUE 

DO  91  J=  I  N  ,NM1 

D7(J)=(-(A9»*2-A1*»2)/(A1»A9*(A9-AD >)»GH 
D8(J)=IA9/(A1»(A9-A1 ))>*GM 
U9( J)=(-Al/( A9*( A9-A1 ) 1 1 »GM 

D10IJ}=((ALl»»2-A3»»2)/IA3*All*(Al 1-A3 1 ) 1 »GM 
Dll( J)=(-Ali/( A3*l A11-A3)))»GM 
012IJ)=(A3/(A11«(A11-A3)))*GM 
91  CONTINUE 

WRITE  15,206)  TITLE, MM2, NM2, A, B, OMB, S1GXB, SIGYB , VF  .EH.EF , PRH, PRF, 
XGM, GF«  ALPHA M, ALPHAF, T , PCGPRX 

2C6  FORMAT  I IH1.3CX.53HT  RANSVERSE  STRESS  ANALY 


X  S  I  S  ,///.12A6,///»55X,10HINPUT  DATA,///, 
X45H  GRID  NODE  ARRAY  SIZE 


= , 1 2 , 4H  BY 


X21H  OLADR ANT  DI PENS  IONS  ,6X,3HA  =, 1 F6 . 3 , 6X, 3HB  =,1F6.3, 


12,//, 

//, 


X45H  RELAXATION  FACTOR  IOMEGA  BAR)  =,1F6.3, 

X45H  AVERAGE  SIGMA  X  LOADING  AT  INFINITY  IPSI)  =,IF9.2,//, 

X45H  AVERAGE  SIGMA  Y  LOADING  AT  INFINITY  IPSI)  =,IF9.2,//, 

X45H  PERCENT  FIBER  BY  VOLUME  *,1F9.2,//. 

X45H  YCUNGS  MODULUS  E  IN  MATRIX  (PS1)  =,1E11.4,//, 

X45H  YCUNGS  MODULUS  E  IN  FIBER  (PSD  =  ,IEU.4,//, 

X45H  PCISSONS  RATIO  IN  MATRIX  =,IF9.4,//, 

X45H  PC1SS0NS  RAT  ID  IN  FIBER  =,1F9.4,//, 

X45H  MATRIX  SHEAR  MODULUS  PSI  =,1E12.4, 

X45H  INCLUSION  SHEAR  MOCULUS  PSI  *,1E12.4, 

X45H  THERMAL  EXP.  CDEF.  IN  MATRIX  UN/IN/DEG  FI  =,1E11.4,//, 
X45H  THERMAL  EXP.  COEF.  IN  FIBER  (IN/IN/OEG  FJ  =, IE  11.4, // , 
X45H  T  =  AMB I  ENT  TEMP  -  CURING  TEMP  (DEGREES  F)  =,1F9.2,//, 

X45H  MAX  DELTA  STRESS  AT  TEST  PTS/RELAX( PERCENT)*, IF 9. 4, //  ) 

IF  [KPSPS.EC.l)  GO  TO  212 
WRITE  15,214) 

GC  TO  213 

212  WRITE  (5,215) 

213  WRITE  (5,207)  <  I JTPI I J I , I J  =  1 ,NTP2 ) 

214  FORMAT  I1H  ,////, 30H  SOLUTION  IS  FOR  PLANE  STRAIN  ) 

215  FORMAT  (1H  ,////, 30H  SOLUTION  IS  FOR  PLANE  STRESS  I 

207  FORMAT  (LHl,//,?4H  TEST  POINT  COORDINATES  , //, 6X , 1H I , 3X, 1H J ,// 
X  (  3X ,2 14  ) ) 

WRITE  15,209)  I  1 1 ,HX (1)1, 1  =  3, MM1 ) 

209  FORMAT  { 1  HI ,////, 14H  GRID  SPACING  ,//,6X,lHI,BX,5HHX(I  ),//, 
1I3X,I4,3X,F12.8I > 

WRITE  15,210)  K J.HYI J) ), J=3,NM1> 

210  FORMAT  I1H  , /// , 6X, 1HJ, 8X, 5HHY I J ) , //, 

U3X,14,3X,F12.8)I 

WRITE  (5,211)  I(LKL),LJ(L)  .COST  (L)  ,5INT(L  )  )  ,L  =  1,NL  1 

211  FORMAT  (1H  » /// , 36H  COS  AND  SINE  THETA  AT  INTERFACE  NODES  ,//, 
X6X,1HI,3X,1HJ,6X, 3HC0S , 6X , 4H S I Nt,// , I 3X,2 !4,2F11.5) ) 

Ul=i.C 
DO  30  J=3,N 
JO  U I M , J ) =U1 
NRXS*0 
NRDS=0 


FF=o .0 
FM=0  .0 

10  IF  (NRDS.GE.NRO)  GO  TO  6 
CALL  RESOTS 
NR0S=NRDS+1 
KPR0B=1 

WR I TE ( 5 , 20 3 )  NRCS.KPROB 
WRITE! 5,204) 

WRITE  (5,205)  (((I,J,U(I.J),V([,J),REU(1,J),REV(I,J)),J=*3,N), 
XI=3 , M) 

DO  46  1J=1,10 
46  SIGRKIJ)=0.0 
CALL  RELXTS 
GO  TO  K 
6  DO  70  I =3, M 

UKP1 ( l,21=U( 1,4) 

VKP1(I,2)=-V( 1,4) 

UKPK I,NP1)=U(I,NM1J 
70  VKPK  I.NPl  )*-V(  I, NMD 


DO  71  J  =  3 , N 
UKPK  2 ,  J )  =-U  ( 4,  J  ) 
VKPK2.J)*  V  ( 4  ,  J  ) 


UKP1 1 1»P1  *  J  » ®-U€  MM1 »  J> 

71  VKP1 ( MP1 » J  )  =  VJMMl.J) 

00  72  1=3. M 

DO  72  J=3»N 
UKP1U,  J)=U(  I.J) 

72  VKP1I 1. J1=V< l,J> 

00  105  1=1, MP2 
DO  i05  J=1,NP2 
U( I, J)=0.0 
VII,J)=C.& 

REUI I » J ) *3.0 

U5  CALL  ^  SIGMAfi (HX.HY .UKPl* VKP  t »  BM.CM.FM. M.N. A. B  »  SXBS. 5 VBS) 

SX8S1=SXBS 
SYBS1=SYBS 
V2=l .0 

IF  IKSYH.EO.l)  CO  TO  92 
DO  73  1=3. M 

73  V ( I »N)=V2 
NRXS=0 
NR0S=0 
FF=0.0 
FM=G .0 

11  IF  INRUS.GE.NRD)  GO  TO  3 
CALL  RESOTS 
NRDS  =  KKD$n 
KPR0B=2 

W R I T E  <  5  .203 )  NRCS.KPROB 

WRITE*?  5^205 )  IMUiUll.JItVI  I ,  J  )  .REUI  1 » J  )  tREVl  I  .  J  I)  .  J*3.N  I  . 
X I  =  3»M ) 

00  47  IJ=1,10 
47  SIGRl II J)=0.0 
CALL  RELXTS 
GO  TO  II 
3  00  74  I =3. H 

UKP21I,2»=  UI1.4) 

VKP2II.2)=-V(1 .41 
UKP2 ( I »  NP1 )  =  U(l.NhU) 

74  VKP2I l,NPl)=-V( l.NMl ) 

DO  75  J=3,N 

UKP2 ( 2 . J ) =-U 1 4  »  J  ) 

VKP2I2.J)*  V14.J) 

UKP2 I KP1 » J ) =“U ( MM  1 » J ) 

75  VKP2 ( KPI . J )=  VIMMl.J) 

DC  76  1=3. M 


DO  76  J=3*N 
UKP2 II  *  J ) =U( I »  J ) 

76  VKP2 I  1 . J )=V< I.J) 

DO  106  1=1, MP2 
DO  106  J=1 ,NP2 
UU,J)=0.0 
VU,J)=0.0 
REUI I . J ) =0.0 
.106  REV  1 1 , J )=0  .0 
GO  TO  94 

92  00  93  1=2. MP1 
DC  93  J=2 »NP1 
UKP2 1 I.JI=VKP1IJ.I) 


93  VKP2U,J)=UKP1I  J.I  > 

94  CALL  SIGMABIHX.HY.UKP2.VKP2.BM, CM, FM.M.N. A.B. 


SXBS.SYBS) 


SX6S2=SXBS 


SYBS2=SYBS 

95  IF  (T. EC. 0.0)  GC  TO  96 
GO  TO  1 107 , 108 ) .KPSPS 

107  FM=( ALPHAM»EM*T )/ I 1.0-PRM ) 

FF=( ALPHAF«EF»T)/(1.0-PRF1 
GO  TO  109 

10B  FM=I ALPHAM*EM*T )/( 1.0-2.0»PRM) 

FF  =  1 ALPHAF»EF*T  >/I 1.0-2.0»PRF ) 

HM  =  FM 
HF  =  FF 

109  DO  110  L= 1 » NL 
l=LI (L) 

J=LJ(L) 

C19(L>=FF-FM 

A1=HXII) 

A2=HY I J ) 

A3=HX( I  —  1 1 
A4=HY( J-l) 

A9*A1+HX{ 1*11 
A1C= A2+HY ( J+ 1 ) 

All= A3+HX ( 1-2 ) 

A1 2= A4+HY I J-2 ) 

CC  1=C0ST(D»*2 
CC  2=SINT(L)**2 
CC  4=C0ST ( L ) *S I  NT ( L ) 

CC  3=2.0»CCA 
CC  5=-CC4 
CC18=CC2-CC1 
CC6=- I A9+A1 ) / I A1*A9 ) 

CC7=A9/IA1*{A9-A1J) 

CC8=-A1/IA9*(A9-A1»> 

CC9=-IAlO*A2)/< A2*A10) 

CC10=A10/I A2*I A10-A2) ) 

CC11=-A2/ ( AID* ( A 10-A2 ) ) 

CC12=IA1I+A3)/1A3»AI1) 

CC13=-AU/IA3*<  A11-A3I  > 

CC14=A3/IAll*(AU-A3)) 

CCl5=lA12+A4>/< A4*A12 ) 

CC16=-A12/(A4»( A12-A4) ) 

CC17=A4/IA12«I A12-A4) ) 

CC21=CC1*( BM*CC6-BF*CC12 ) +CC2* I BM»CM»CC6-BF*CF*CC12 ) 

1  +CC3»IGM*CC9-GF*CC15> 

CC 1=CC4 
CC2=CC5 
CC3=CC18 

CC41=CC1» ( BM*CC6-BF»CC12 ) +CC2» ( BM"CM*CC6-BF*CF*CC12 ) 

1  +CC3*(GM*CC9-GF*CC15) 

CC6Q=CC41/CC2l 

110  C38IL)=CFM-FF)*CC60 
NRXS=0 
NRDS=0 

13  IF  (NROS.GE.NRD)  GO  TO  14 
CALL  RESDTS 
NRDS  =  AROSU 
KPR0B=3 

WRI IEI5.203)  NRCS.KPROB 

WrItE  *?5»  205  )  mi.J.UII.JI.VI  I.J  >»  REUI  I.J).  REVI  l.J  >),J*3,N), 
XI =3.M) 

DO  48  IJ=1,10 

48  SIGRl { I J ) =0.0 
CALL  RELXTS 


195 


GO  TO  13 
14  DO  77  1=3, M 

£  9(1, 2>=  U( 1,4) 

EIOI I,2)=-V(I,4) 

E  9( IiNPl )  =  U ( I »NM1 ) 

77  E10( I,NP1)=-VI I,NM1> 

DO  78  J  =  3,  N 

E  9  (  2  ,  J  ) =-l)  ( 4, J ) 

£10(2, J)=  V ( 4 , J 1 
E  9(MP1, J)=-U(MM1,J) 

78  E10(MP1,J>=  V( MM1,  J  ) 

DO  79  1=3, M 

DO  79  J=3,N 
E  9( I,J)=U( I,J1 

79  E10( [,JJ=V(  I , J  } 

CALL  SICMAB(HX,hY,E9,ElG,BM,CM,FM,N,N,A,B,SXBS»SYBS) 

SXBS3=SXBS 

SYBS3=SYBS 

96  FFI=-SYBS1/SYBS2 
FF2=-SXBS2/SXBS1 
SXBS12=SXBS1+FF1«SXBS2 
SY8521=SYBS2*FF2«SYBS1 
DO  62  1=2, MP1 

DC  62  J=2,NPI 

El  LI  I ,J)*UKP1( 1,J)+FF1*UKP2( I,  J) 

82  E12(I,JI=VKP1( l,J)+FFl*VKP2l I, J J 
EX=SXBS!2»A/U1 
DO  83  1=2, MP1 
DO  83  J=2,NP1 

El 31  I  ,J»=UKP2( I,J)+FF2»UKPl( I,J1 
8  3  E14( I ,J)=VKP2(I,J) +FF2*VKP1  (  I,  J) 

EY=SYBS2l»8/V2 

IF  ( (SIGXB.EQ.O.O).AND.(SIGYB.EQ.O.G) )  GO  TO  97 

FF3=SIGXB/SXBS12 

FF4=SIGYB/SYBS21 

DO  64  1=2, MP1 

DC  64  J=2  *  NP1 

E15(I,J)=FF3*E11(I,J )+FF4»El 3( I , J  » 

E 16 (  I*J)  =  FF3«E12(I»J)+FF4*E14(I»J) 

U(  I  ,  J  1  =  E15 ( t , J ) 

64  V(1,J)=E16(I , J) 

FF=0.0 

FM=0.0 
HF  =  C.C 
HM  =  O.C 
KPRQB=1 
CALL  STRSTS 

97  IF  ( T .EC. O.C )  GC  TO  1 
FF5=-SXBS3/SXBS12 
FF6=-SYBS3/SYBS21 

DO  85  1=2, MP1 
OC  85  J=2,NP1 

U(I,J)  =  FF5*E11I  I,J)+FF6*£13( 1 , J )  +  E  9I1,J) 

65  V(I,J)=FF5*E12(I,J)+FF6*E14(  l ,  J  1  +  El.O  1 1 ,  J  I 
ALPHAX=HFF5»UI  +  FF2*FF6»U1)/A|/T 
ALPHAYM (FF6«V2+FF1»FF5»V2)/B)/T 

IF  (KPSPS  .EO.  21  GO  TO  111 
FM= ( ALPHAM«EM»T )/(1.0-PRM) 

FF=( ALPHAF*EF*T)/(1.0-PRF» 

GO  TO  112 

111  FM=( ALPHAM«EM»T 1/(1. 0-2. 0»PRK) 
FF=(ALPHAF*EF»T)/(1.0-2.0*PRFI 


HF  =  FF 
HM  =  FM 
112  KPR0B=2 

CALL  STRSTS 

87  IF  (SIGXB.EC.O.C)  GO  TO  89 
GO  TO  88 

89  IF  (SIGYR.EC.C.C)  GO  TO  99 
SB  DO  86  1=2, MP1 
DO  86  J=2,NP1 
U(I,J)=U(I,J)+E15(I*J) 

86  VII » J)=V( I,J)+E16t  I,J) 

KPR0B=3 
CALL  STRSTS 
99  GO  10  1 

201  FORMAT  (2413) 

202  FORMAT  (6E12.6J 

203  FORMAT  ( 1H1*49X,21HRESULTS  OF  RESID  NO.  , I2,5X,11HPR0BLEM  NO., 137) 
2C4  FORMAT  (1H  , // , 6X , 1H I , 3X , IHJ , 19X , 1  HU, 1 8X , IHV , 14X, 10HU  RESIDUAL, 

X10X.1CHV  RESIDUAL,///) 

205  FORMAT  ( 1H  , 3X, 2  1 4 , 6X , 4E20 . 8 ) 

208  FORMAT  (12A61 
END 

FORTRAN  MAP 

CRESDTS 

SUBROUTINE  RESDTS 

COMMON  U,V,REU,REV,USAVE,VSAVE,U1,V2,SIGX,SIGY,SIGZ,SIGXY,CAT, 
XSIGXB,SIGXBS,SIGYB,SIGYBS,SI GXM , SI  GYM, 5IGZM,SIGXF,SIGYF,SIGZF, 
XHX,HY ,OMB,PRM»PRF,EM,EF,ALPHAM,AL  PHAF, T,EX,EY,Ft,F2,C0ST,SINT, 
XC1,C2,C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15,C16,C17,C18, 
XC19,C2O,C21,C22,C23,C24,C25,C26,C27,C28,C29,C30,C3l,C32,C33,C34, 
XC35,C36,C37,C38,C39,C40,C41,C42,C43,C44,C45.C46,C47,C48, 

XD1, 02, D3, D4,D5,C6,D7, 08, D9, DIO, 011,012, 

XEl,t2,E3,E4,E5,E6,E7,E6,E9,E10,Ell,E12,E13,E14,E15,E16,E17,E18,E19 

X,E20,E21,E22,E23,E24,E25,E26,E27,E26,E29,E3C,E31,E32 

X,AM, AF.BM, 8F?CM,CF,DM,DF,  FM,FF,GM,GF,HH,HF, 

XMP2,MP1,M, MM1,MM2,MM3,NP2,NP1,N,NMI,NM2,NM3, 1NP3, INP2, INP1, IN, 
XINM1,INM2, INM3, I  MP3, IMP 2, 1MP1, IM, IMM1, IMM2, IMM3,NL,NLM1 ,NLM2, 

XLN, L I  ,LJ,LAT,KNAT,NMFI,MFIJ,MFI,KNT,KPROB,IJTP,MFII, 
XNRX,NRD,NRXS,NRDS,NPRLX,NCPRLX,NTP,NPT,SIGR1,SIGR2,PCGPRX,SIGR, 
XNRXBT,UL,VL,KPSPS,A, B, KSYM, NKPROB 
X, ALP H A X, ALPHA Y , [ JRAI P, DA, DB,  NRAIP 

DIMENSION  U(20,20),V(20,20),REU(20,20),REV(20,20) , 

XE  1(17, 17), E  2(17, 17), E  3117, 17), E  4(17, 171, E  5(17, 17), E  6(17,17), 
XE  7(17, 17), E  8(17, 17), E  91 17,17) ,E10( 17, 17) , Ell  117,17) ,E12( 17,17) , 
XE13(17,17),E14(17,17),El5(17,i7),E16(17,17),E17ll7, 17), £18117,17), 
XE19( 17, 17>,E20( 17,1 7), E2t( 17,17 ),E22( 17,17 ) ,E23117, 17), E24( 17,17), 
XE25(17,17),C26(17,17),E27(17,17),E28(  17, 17 ) ,E29 ( 17,  17) ,  E30I17, 1  7) , 
XE 31(17, 17) ,E 32 (17, 17), 

XLN (20,20) ,MFII20,20),KNT (20,20), MFI 1(200), MFIJ(200) 

DIMENSION  SIGXM(40),SIGYM(4G),SIGZM(40),SIGXF(40),S1GYF(40), 
XS1GZFI40) ,C0ST(40) ,S INTI  40) , 

XC  1(40), C  2(40), C  3(40), C  4(40), C  5(40), C  6(40), C  7(40), C  8(40), 

XC  9(40) ,C10(4C),Cll(40),C12( 40 ),C13(40),C14(40) »C 1 5 1 40 ) , C 1 6 ( 40 ) , 
XC17I4C) ,C1B(40) ,C19(40),C20(40) ,C21 (40 ) ,C22 ( 40  I ,C23C40) .C24I40) , 
XC25(40> ,C26(40) , C27 ( 40 ) ,C28 ( 40 ) ,C29 ( 40) ,C30 ( 40 ) ,C31 < 40 ) ,C32 (40) , 
XC33(40I ,C34( 40), C 35(40 ),C 36(40 ),C37 1 40 >»C 38(40 1, LI (40) ,LJI40> 
DIMENSION  HX(20),HY(20), I JTP( 20 ) ,D1 ( 20 J ,D2( 20  I , D3I 20 ) ,D4 ( 20 ) , 
XD5I20),D6(20),D7(20),D8(20),D9[20),010(20),D1II20),D12(20) , 
XSIGRH1C),SIGR2(10),  IJRAIPI30),  DAI15),  DBI15) 

X,ABIJI15), ABKJI 15) 

INTERIOR  POINTS 
DO  5000  IJ=1, NRAIP 


A  B I J ( IJ)  =  I (DAI l J ) +0B ( IJ) I / 1 D  A ( I J )  +  DB  C IJ I  »I EF/EM ) ) )• EF/EM 
5000  A6KJ { I J)~( (OA( t J I +0B I  I J J »/ ( 0 At  1 J I* ( EM/EF >+DB 1 1 J MI  +  EH/EF 
DO  5001  IJ=1,NRAIP 
I J 1 3 1 J*2-l 
1 J J= I J*2 
1= I JRAIP ( IJI ) 

JMJRAIPIIJJ) 

KI=I+1 
KJ=J+ 1 

IF  (UII .JI.EQ.O.O)  GO  TO  5002 

EUIJ  *(U(KI»KJ l-ABI J ( IJ)*(U(KI*KJ)-U( I » J I ) )  /U(  I  «  J ) 

A1=HX ( K  I  I 

A2=HY(KJ) 

A3=HX I K I— 1 ) 

A4*HY  l  K J-l ) 

G=GM 

P=AM 

EE1=2.0/(AI+(A1+A3)1 
EE2=-2.C/< A1+A3) 

EE3S2.0/(A3*IA1+A3) ) 

EE4=2.0/(A2«<A2+A4)) 

EE5=-2.C/( A2+A4I 
EE6=2.0/(A4*(A2+A4)> 

EE16=l.C/< Al«A2«A3*A4+( Al+A3>»( A2+A4I ) 

EE7=A3**2»A4**2»EE16 

EE8=EE16*IA2*»2-A4**2t*A3**2 

EE9=-EE16«A2«»2»A3**2 

EEii.  =  EE16*lAl*»2-A3  +  +2),A4»«2 

EEli=EEl6»(Al»«2-A3*»2)»(A2»»2-A4*«2I 

EE12=EE16»< A1«»2-A3*«2I»I-A2**21 

EE13SEEI6*(-A1*»2)»A4*«2 

EEL4-EE16*(-Al»«2)»t A2**2-A4»*2) 

EE15  =  EE16«(-A1**2)»1 -A2  »*2 I 

EE21=G*(P+1.0)+EE2+G*P*EE5 

EE26-G*EE11 

EE31=C*EE7 

EE33=G»EE15 

EE35=G+P»EE2+G*<P+1.0>«fcE5 
EE40*£E26/EE35 
EE41*EE26/EE21 
E21(KI,KJ)=-EE40«EE33»EUIJ 
E32 ( K  I , K J ) =  EE33*EUIJ 
GO  TO  5C03 
5002  E21(KI,KJ)=G.0 
E32CK1 *KJ I =0 .0 

5C03  IF  <VU,JI  .EG. 0.0)  GO  TO  5004 

EVIJ=(V(Kl,KJ)-ABIJ(  IJ)*(V{KI,KJl-VU,jm/VI  I.  J) 

ai=hx i  k  i  ) 

A2=HY(KJ> 

A3=HX(KI-l) 

A4=HY ( K J— 1 ) 

G=GM 
P  =  AK 

EE1=2.0/{A1+(A1+A3)I 
EE2=-2.G/I A1*A3> 

EE3=2.0/IA3*IA1+A3) I 
EE4=2.C/(A2+(A2+A4J) 

EE5*-2.0/IA2»A4) 

EE6=2.C/tA4*(A2+A4) ) 

EE16=1.C/(A1*A2»A3«A4*( Al+A3)»( A2+A4) ) 

EE7=A3»*2»A4»«2+EE16 

EE8=EE16*(A2*+2-A4»»2)*A3**2 


EE9=-EE16»A2**2«A3*»2 
EE1G=EE16*<AI**2-A3««2)*A4**2 
EE11=EE16+I A 1**2- A3* *2) •( A2**2_A4+*2 ) 

EE12»EE16+( Al*»2-A3»*2 ) • ( -A2++2 ) 

EEl3=EE16*t-AL**2)*A4**2 

EE14=EE16*t-Al*»2)*I A2»»2-A4»*2I 

EE15=EE16»I-A1»«2)«I-A2*»2) 

EE21=G»IP+1.0)»EE2+G»P»EE5 

EE26=G«EE11 

EE31=G+EE7 

EE33=G+EE15 

EE35=G*P*EEZ+G*(P+1.0)*EE5 

EE4C=EE26/EE35 

EE41 =EE26/EE2l 

E13<KJ,KJ)*£E33»EVIJ 

E29 ( K I ,KJ )*~EE4l»EE33»fcV I J 

GC  TO  5005 

5G04  El 3( KI * K J |=0.0 
E29 I K  I f KJ  )  *0.0 

5CC 5  IF  (U(KIfKJ).EQ.G.G)  GO  TO  5006 

E  UK  J*  IU(I  »  J ) +ABK J{  IJ)»(U(KI,KJ)-Ua,jm/UIKI.KJ) 
Al=HX  1 1 > 

A2=HY ( J ) 

A3=HX(I-1) 

A4=HY ( J-l ) 

G=GF 

P=AF 

EEl*2.Ci/(Al»IAl+A3)  ) 

EE2=-2.0/< A1*A3) 

EE3=2.0/(A3MAl  +  A3)  ) 

EE4*2.t/( A2*( A2+A4I ) 

EE5=-2.C/IA2*A4) 

EE6*2.u/(A4»(A2+A4J) 

EE16*1.0/ t Al*A2*A3»A4«t A1+A3 )*( A2+A4M 

EE7=A3*+2*A4**2*EE16 

EE8*EE16*(A2»*2-A4»+2I»A3**2 

EE9*-EC16»A2**2»A3»»2 

EElw=EEl6»(Al»»2-A3*+2I«A4»*2 

EEli=EE16»(Al*«2-A3»*2)+( A2»«2-A4«»  2) 

EE12=EE16*<A1**2-A3**2I+I-A2»»2) 

EE13=£E16+{-Al*»2)*A4»«2 

EE14*EE16*l-Al«*2)»l A2»*2-A4»»2) 

EE15=EE16*l-Al**2I*l-A2«»2) 

EE21=G»(P+1.0)*EE2+G*P«EE5 

EE26-G+EE11 

EE3i  =  G»EE  7 

EE33*G*EE15 

EE35=G*P»EE2+G*tP+1.0)»EE5 

E£4o=EE26/6E35 

EE4i=EE26/EE21 

E  6( I,JI=-EE40+£E3i+EUKJ 

E31(I,J>=  EE31-EUKJ 

GO  TO  5007 

5006  E  6 (  I  «  J  )  -0 .0 

£31 ( 1 1 J 1=0.0 

5007  IF  < V  I KI tKJ ) . EQ.0.0  >  GO  TO  5008 

EVKJ“ ( V  C I v  J ) +A6K J JIJ)»(V(KI»KJ)-V(ItJ)) )/V(KI*KJ) 
A1 =HX  1 1 ) 

A2=HY|J J 
A  3  =  HX l I - 1 » 

A4=HY( J-l) 

G=GF 


P=AF 

EEl=2.0/(Al*(Al+A3) ) 

EE2=-2.0/(Ai»A3) 

EE3=2.0/(A3*< AI+A3I) 

EE4=2.0/(A2*(A2+A4) ) 

EE5*-2.0/(A2*A4) 

EE6-2.0/(A4»(A2+A4)> 

EE16=1.0/( A1+ A2«A3»A4» (A1+A3)*IA2+A4) I 

EE7=A3**2*A4*»2+EE16 

EE8sEE16*( A2*«2-A4«*2)*A3»*2 

EE9=-EE16*A2»*2»A3**2 

EE10=EE16*(A1*»2-A3»»2)»A4»*2 

EE11=EE16*(A1*»2-A3**2)+I A2»*2-A4*»2 ) 

EE12=EE16*IA1**2-A3*»2)»(-A2*»2I 

EE13=EE16*(-Al*»2)*A4+*2 

EE14=EE16»(-A1»»2>*( A2««2-A4»»2) 

EE15*EE16»I-A1«*2>*<-A2«*2) 

EE21=G« (P+1.0) »EE2+G+P*EE5 

EE26=G*EE11 

EE31-G+EE7 

6E33=G*EE15 

EE35=G»P*E£2+G»(P+1.0)*EE5 
EE4u*EE26/EE35 
EE41*EE26/EE2I 
Ell(IiJ)-  EE31+EVKJ 
E27( I*J)a-EE41*EE31*EVKJ 
GO  TO  5009 
5009  Ell(  1 »  J ) =0 .0 
E27U,  J)=0.0 
5009  CONTINUE 
5001  CONTINUE 

DO  10  l  =  4.MM1 
DO  10  J  =  4 , NM1 

REU(  1«  J)  =  EHI,J)«UU»J)  +  E2(  1,  J >*U( I +1 , J )+E3 ( I»J)*U(  l , J+ 1 ) +E4 < l , J > . 
XU(I-l.J)+E5< 1, J)«U(I,J-1)+E6U, J)*U( I+1,J+1)+E20( I , J) *U( 1-1 , J+l)+ 
XE21(  I  »J  )»U(  1-1,  J-1)+E22U.J)*U(  I +1 , J-l ) +E7C I , J ) * VI l +1 ,  J»+E8(I,  J)» 
XVII,  J+1)+E9(I,J)*VC I-1,J)+E10(  I»J)»V(  I.J-D  +  EUII,  J)*VI  1  +  1,  J+l)* 
XE12(1»J»*V(I-1,J+1I+E13(I,J»*V( I-1.J-1I+E14C !v J)*V( I+l, J-l) 

10  REV(I.J)=E15U,J)+VI  I,J)+E16U,JI*V(I+1, J ) +E 17( 1 , J ) • V< I  ,J  +  1)  + 

XE18I  I,J)*V(  1-1,J)  +  E19U,J)«VU,J-U+E27(I,J)+V(  1+1,  J+l) +E28  ( 1 ,  J  )  * 
XVfl-ltJ+1 )+E29( !»J)+V(I-l»J-l)+E30(ItJ)*V(I+liJ-l)+E23(l»J)* 

XU(I  +  l,J)tE24(I?J)+D(l,J  +  l)+E25(  I,J)*UU-l,J)+E26(I,J)*UM.J-n  + 
XE3K  I,J)+U(  I  +  l,J+l)+E12t  I,J)*U(I-l,J  +  ll+E32n,J)«U(l-l,  J-l)  + 

XE14I I >  J  )  *U l I +1 1  J-l ) 

C  LEFT  BOUNDARY  I  =  3 

IF  ( MFI ( 5 , INM1 ) .NE .1 )  GO  TO  5030 
A l  *  HX ( 3 ) 

A9  =  A1  +  HX 1 4 ) 

D8 ( I NP1 )  =  (GF*( A9»*2  -  Al**2)  ♦  GM+A1»»2)/(A1+A9*(A9  -  All) 
09UNMI)  =  -GM*A1/(A9»(A9  -  Al)) 

5030  CONTINUE 

DO  20  J  *  4.NM1 

20  REV(3,JJ  s  D7(J)»VI3,J)  +  09<J)«V(4,J)  +  09{J)*V(5»J) 

C  RIGHT  BOUNDARY  I  =  M 

DO  30  J  =  4 » NM1 

30  REV(M.J)  =  D10( JI+VIH.J)  ♦  D1 1 ( J )*V ( HM1 , J )  +  D1 2( J ) *V ( MM2 , J ) 

C  LOWER  BOUNDARY  J  =  3 

IF  (  MF  I  ( I HM1 , 5 ) .NE. 1 )  GO  TO  5040 
A2  =  HY ( 3 ) 

A10  =  A 2  +  HY ( 4 ) 

D2UMP1)  =  CGF*(A10»«2  -  A2*»2)  ♦  GM»  A2«*2)/( A2+A10+ (ALO  -  A2)J 
D3I1MP1)  =  -GM»A2/(A10*(A10  -  A2)) 


5040  CONTINUE 

DO  40  I  =  4 » MM  1 

40  REU (1*3)  =  01 ( l ) «U( I • 3 )  ♦  02  (  I  > +IJ<  1 ,4)  +  03(I)tUII,5) 

C  UPPER  BOUNDARY  J  =  N 

DO  50  I  =  4 1 MM1 

50  REUd.N)  =  D4tl)*U(I,N)  +  D5(I)*UII,NM1)  +  D6(I)»U(1,NM2) 

C  INTERFACE  POINTS 

L=2 

ISLI ( L) 

J  =  LJ ( L ) 

A1=HX I  I ) 

A2=HY(J) 

A3=HX( 1-1 ) 

A4  =HY ( J-l ) 

A9=A1+HXI 1+1 ) 

A10=A2+HY ( J+l ) 

A11  =  A3  +  HX ( I  — 2 ) 

A12=A4+HY ( J-2 ) 

CC  1=CUST ( L I *»2 
CC  2=SINT(L)*»2 
CC  4=C0ST(L)*SINT(L) 

CC  3=2.C*CC4 
CC  5=-CC4 
CC16=CC2-CC1 
CC6=— <A9+A1)/(A1+A9) 

CC7  =  A9/(A1*(A9-A1)  ) 

CC8=-AI/(A9+(A9-A1)) 

CC9=-(A10+A2 )/( A2+A10) 

CC10=A1C/IA2*( A10-A2 ) I 
CCll*_A2/(A10*( A10-A2I I 
CC14-A3/I All»( A11-A3 ) ) 

CC15=(A12+A4)/(A4*A12) 

CCl6=-Al2/( A4*( A12-A4) 1 
CC17=A4/(A12*( A12-A4 ) ) 

CC12=IAl-A31/( A1+A3) 

CC13=-A17( A3*( A1+A3I ) 

CC61=A3/(A1*IA1+A3) ) 

CC21=CC1»( BM+CC6-BF+CC12 ) +CC2M BM*CM*CC6-BF*CF*CC12) 

1  +CC3* ( GM»CC9-GF+CCi 5  I 

CC22  =  CC1 • I BM«CM«CC9-BF»CF*CC15 ) +CC2» I BM»CC9-BF»CC15  ) 

I  +CC3  +  <  GM»CC6-GF»CC12 I 

IF  IMFI (5, JI.EO.l)  GO  TO  5012 

CC23=CCl+BM+CC7+CC2*8M«CM*CC7-CCl+BF*CC6l-CC2+BF*CF*CC61 

CC31=CC3*GM«CC7-CC3*GF»CC61 

GO  TO  5015 

5012  IF  (U(5,J) .EG. 0.0)  GO  TO  5013 

CUL2=lU(4*J)+(EM/EF)*IU(5tJ)-U(4|J) ) )/U(5,J) 

CVL2=tV(4,J)  +  IEP/EF)*(V(5,J)-V(4,J)D/V(5,J) 

GO  TO  5014 
5C13  CUL2=0.0 
CVL2=0.0 

5014  CC23=CCl*BM«CC7+CC2+BM»CM»CC7-CCl»BF*CC6l*CUL2-CC2«BF*CF»CC61»CUL2 
CC3i=CC3»GM+CC7-CC3»GF»CC61*CVt2 

5015  CC24*CC3«GM*CC1C 

CC25=-CC1 +BF+CC1 3-CC2*8F*CF*CC13 

CC2o=-CC3«GF«CC16 

CC2T=CC1 *BM+CC8+CC2+8M*CM*CC8 

CC2tt=CC3*GM»CCLl 

CC29=0.0 

CC3C*-CC3*GF»CC17 
CC32=CCx*BM»CM*CC10+CC2*BM«CClD 
CC33=-CC3«GF*CCI 3 


CC34=-CC1*BF»CF*CC16-CC2*8F»CC16 

CC33=CC3«GM*CC8 

CC30=CC:*BM*CM«CC11+CC2»BM«CCL1 

CC37=0.0 

CC3o*-CCl »8F»CF«CC17-CC2«BF*CC17 
CC39=(CC1+CC2)*(FF-FM) 

CC l=CC4 
CC2=CC5 

cc3=ccie 

IF  (MFH5,  JI.EQ.l)  GO  TC  7012 

CC43=CC1»BM*CC7+CC2*BM»CM*CC7-CCI*BF»CC61-CC2*BF*CF»CC61 

CC5I*CC3*GM*CC7-CC3*GF»CC6l 

GO  TO  7015 

7C12  CC43=CC1*BM*CC7+CC2*BM*CM*CC7-CC1*BF*CC61*CUL2-CC2»BF»CF*CC61*CUL2 
CC51*CC3*GM*CC7-CC3*GF»CC61*CVL2 
7G15  CC41=CC1  »(BMCC6-BF*CC12)  +CC  2*1  BM*CM*CC6-BF»CF*CC12 ) 

1  *CC3*IGF*CC9-GF»CC15) 

CC42=CC1*IBM*CM*CC9-BF*CF*CC15»+CC2»(BH«CC9-BF«CC15) 

L  +CC3* ( GK«CC6-GF»CC12  > 

CC44=CC3*GM»CC10 

CC43=-CCl*BF*CC13-CC2*BF»CF*CC13 

CC46=-CC3»GF*CC 16 

CC47=CCl»BM«CCe+CC2»BM*CH»CC8 

CC48=CC3»GM*CC11 

CC49=0.G 

CC50=-CC3*GF«CC17 

CC52  =  CCl»BM»CFi«CC10  +  CC2»BM«CC10 

CC53=-CC3*GF«CC 13 

CC54=-CC1 *BF*CF»CClfc-CC2»BF»CCl6 

CC55=CC3*GH»CC8 

CC5t*CCl»BW*CM«CCll4-CC2«BM.CCll 

CC57=0.C 

CC56=-CC1»BF*CF»CC17-CC2*BF*CC17 

CC59* I CC1+CC2 ) » I FF-FH I 

CC40=CC22/CC42 

CC60=CC4i/CC21 

C  1U_)=CC21-CC41*CC40 

C  2<L)=CC22-CC42«CC40 

C  3(L)=CC23-CC43»CC40 

C  4 ( L ) =CC24-CC44»CC40 

C  5 ( L  )=CC25-CC45«CC4C 

C  6(L»=CC26-CC46*CC40 

C  7(L)=CC27-CC47«CC40 

C  8<L)=CC28~CC4B»CC40 

C  91 L )=CC29-CC49»CC40 

C10( L 1=GC30-CC5G*CC40 

Cl 1 1  L I =CC3l-CC5 1 *CC40 

C12IL)=CC32-CC52*CC40 

C131L l=CC33-CC53»CC40 

C14( L)=CC34-CC54»CC4C 

C  15  ( L  )*CC35-CC55»CC40 

C16(L)=CC36-CC56*CC40 

C17IL)=CC37-CC57*CC40 

C18(L)=CC38-CC58*CC40 

C19<L)=CC39-CC59«CC40 

C20(L )=CC41-CC21*CC60 

C21 I L )  *CC42-CC22«CC60 

C22(LI=CC43-CC23»CC60 

C231LI=CC44-CC24*CC60 

C24 ( L ) =  CC45*-CC25»CC60 

C25  <  L  >  =  CC46-CC26*CC60 

C26 ( L ) =CC47-CC27»CC60 


C271U=CC48-CC20*CC6O 
C28(L)=CC49-CC29*CC60 
C29 ( L ) =CC50-CC30*CC60 
C30 ( L ) =CC51-CC3l»CC60 
C311L I =CC 52-CC32«CC60 
C32IL  >  =  CC5  3-CC33*CC60 
C3  3  (L  )  =CC54-CC34»CC6C 
C34(L)=CC55-CC35»CC60 
C35(O  =  CC56-CC36*CC60 
C36 ( L ) *CC57-CC37»CC60 
C37 ( L ) =CC58-CC38*CC60 
C38 ( L ) *CC59-CC39*CC6Q 
L*NLH1 
I*LI (L) 

J=L J ( L ) 

AlsHXU) 

A2=HY( J) 

A3=HX( I-1I 
A4*HY ( J-l ) 

A9=Al+HXl 1*11 
A1C  =  A2+HY( J+L  ) 

Ail=A3*HXt 1-2) 

A12=A4+HY( J-2) 

CC  i  =  CQST I L  1  • « 2 
CC  2=SINT(U»*2 
CC  4=CGST(L)»$INTIL) 

CC  3*2. C  *CC4 
CC  5=-CC4 
CC18=CC2-CC1 
CC6=-I A9+A1 )/( Al*A9l 
CC7= A9/ I A1 *( A9-A 1 ) ) 

CC8*-Al/( A9»I A9-A1) ) 

CC9=-< A10+A21/IA2*A10) 

CC10  =  A1C/(A2*(A10-A2  )  ) 

CC1U-A2/1  A10*(A10-A2)  ) 

CC12=(A11+A3)/I A3*A11) 

CC13=-All/<A3*t A11-A3) ) 

CC14=A3/IA11*< A11-A3)  ) 

CC17*A4/(A12*( A12-A4) ) 

CC15* ( A2-A4  > / ( A2 • A4 ) 

CC16  =  -A2/(  A4M  A2  +  A4)  ) 

CC7i  =  A4/t  A2MA2+A4I1 

CC21*CC1«(8M»CC6-BF»CC12)+CC2*I BM»CM*CC6-BF*CF*CC12 J 
1  ♦CC3«IGM*CC9-GF»CC15) 

CC22=CC1* l BK«CM»CC9-BF»CF»CC 15  J *CC2» I BM*CC9-BF*CC1 5 ) 

1  +CC3* ( GK»CC6-GF*CC12 ) 

CC23*CC1»B«»CC7+CC2*BM*CM*CC7 
IF  (MFI ( I,5).E0.1)  GO  TO  5022 
CC24*CC3*GH*CC1C-CC3  *GF*CC71 

CC32=CC1»BM«CM*CC10+CC2»BH*CC10-CC1*8F*CF»CC71-CC2*BF*CC71 
GO  TO  5025 

5022  IF  (Utl.5) .EQ.0.0)  GO  TO  5023 

CUNC*  CUII»4J*(EN/EFI*(UI  I#  51-Ul Ii4)  )I/UU,5I 
CVNL=(V(1,4)  +  (E)'/EF)«(  Yl  I  .  5 ) -V  t  1«  4  )  J )  /V  (1 . 5  ) 

GO  TO  5024 

5-J23  CUNL=0.C 
CVNL=O.C 

5024  CC24=CC3*GM»CC10-CC3*GF*CC7l*CUNL 

CC32=CC1*BM*CM*CC10*CC2*BM»CC10-CC1»8F»CF*CCT1*CVNL-CC2*BF*CC71* 

XCVNL 

5C25  CC25«-CC1*BF»CC13-CC2»BF»CF*CC13 
CC26=-CC3*GF*CC16 


CC27*CC1 *BM»CC8+CC2*BM»CM*CC8 
CC26=CC3»GM*CC 1 1 

CC29=-CC1«BF*CC14-CC2*BF*CF*CC14 

CC30=0.0 

CC31-CC3*GM*CC7 

CC33=-CC3*GF«CC13 

CC34=-CC1»BF<*CF»CC16-CC2*BF*CC16 

CC3i=CC3»GM«CC8 

CC36=CCI •BM»CM»CC11+CC2»BM»CC11 

CC37=-CC3*GF*CC14 

CC3b=C.C 

CC39= (CCl +CC2 ) * ( FF-FM) 

CC1=CC4 
CC2=CC5 
CC3=CC 1 8 

IF  (MFICIiSI.EO.l I  GO  TO  B022 
CC44=CC3*GM*CC 1G-CC3»GF»CC71 

CC52=CC1*BM»CH«CC10+CC2*BM*CC10-CC1*BF*CF»CC71-CC2«BF*CC71 
GO  TO  BC25 

8022  CC44=CC3»GM*CC 10-CC3»GF*CC71»CUNL 

CC52-CCI *8M*CM»CC1C*-CC2*BM  »CC10-CC1»8F*CF*CC71*CVNL-CC2  *BF  *CC71» 
XCVNL 

BC25  CC41=CCi«( BM»CC6-BF«CC12 )+CC2* ( BM»CM*CC6-BF*CF*CC12 ) 

1  +CC3*(GM«CC9-GF«CC15) 

CC42=CC1MBM*CM«CC9-BF»CF*CC15)+CC2*(BM»CC9-BF<>CCI5) 

I  +CC3»(GM*CC6-GF»CC12) 

CC4J=CC1«BM»CC7+CC2*BM«CH»CC7 
CC45=-CC1»BF»CC13-CC2*BF*CF*CCI3 
CC46=-CC3#GF*CC16 
CC47=CCl*BM»CC8fCC2»RM*CM*CC8 
CC4B  =  CC3*GM*CC1 1 

CC49=-CC1  »BF*CC 14-CC2»8F  *CF*CC  14 

CC50=0.0 

CC51*CC3*GM»CC7 

CC53=-CC3*GF*CC13 

CC54=-CC1*BF*CF*CC16-CC2*BF»CC16 

CC55=CC3*GM*CC8 

CC56=CC1«BM*CM*CC11+CC2*BM*CC11 

CC57=-CC3*GF*CC14 

CC58-0.G 

CC59=(CC1+CC2I«(FF-FM) 

CC4u=CC22/CC42 
CC6G=CC41/CC21 
C  1 ILI=CC21-CC41»CC4C 
C  2 ( L )=CC22-CC42»CC40 
C  3(L)=CC23-CC43*CC40 
C  4IL >=CC24-CC44*CC40 
C  5(L)=CC25-CC45*CC4C 
C  6(L)=CC26-CC46»CC4C 
C  7(L)=CC27-CC47.CC40 
C  8 ( L ) =CC28-CC48  »CC40 
C  9(L)=CC29-CC49«CC40 
C 10  I L ) =CC30-CC5C  »CC40 
Cl  1  (t >=CC31-CC5l»CC40 
C12 ( L )=CC32-CC52*CC40 
C13tU  =  CC33-CC53*CC40 
CI41L )=CC34-CC54*CC40 
C15 ( L l=CC35-CC55»CC40 
C16(L)=CC36-CC56*CC49 
C 1 7 { L 1 =CC37-CC57»CC40 
C18 ( L )=CC38-CC58«CC40 
C19(L)=CC39-CC59*CC40 


C20(L)=CC41-CC21*CC60 

C21(L)=CC42-CC22»CC60 

C221L  )=CC43~CC23*CC60 

C23 ( L  )=CC44-CC24  »CC6C 

C24(L)=CC45-CC25»CC60 

C25U  l=CC46-CC26«CC6C 

C26IL»=CC47-CC27«CC60 

C271L)=CC48-CC2B*CC60 

C2B I L ) =CC49-CC29»CC60 

C29(LI=CC5C-CC30*CC60 

C3G(U=CC51-CC31*CC60 

C3HLI=CC52-CC32»CC60 

C32(L)=CC53-CC33»CC60 

C33(L)=CC54-CC34»CC60 

C34  I  L  )=CC55-CC35»CC60 

C35(tl=CC56-CC36*CC6C 

C36(L)=CC57-CC37«CC60 

C37(L)=CC58-CC36«CC6G 

C38 l L ) =CC59-CC39*CC60 

00  60  L  =  2.NLM1 

1  =  LI(L) 

J  =  LJ(L) 

REUII.J)  =  CHL)»U(I,JI  +  C2(l)»V(I,J)  +■  C3(L  I  *U(  1  +  1,  J)  «•  C4(L>* 

X  UCI.J  +  1)  +  C5(L )«U( I —  1 *  J )  +  C6 ( L ) » Ut I »  J- 1 )  ♦  C7  (L  )  * 

X  U ( I  +2  »  J  )  +  C8(L)#UI l,J*2)  +  C9(L l»U< 1-2, J)  +  C10(L>* 

X  UU, J-2)  ♦  Cl  1  (  L  )  *V  (  I  +1 ,  J  )  ♦  C12(L)»V(I,J+1)  +  C13IU* 

X  Vtl-l.J)  +  C14( L  )  »V  (  1 , J- l )  +  C15(L)«V( I+2.J)  ♦  C16ILI* 

X  VII,  J  +  2)  ♦  C17 1 L  )  *V  I  I-2»  J  )  *  C 18( L ) • V( I  *  J-2  )  *  C19(L) 

60  REV(I.J)  =  C2C ( L ) *U< I , J )  «•  C 21 ( L I *V ( I , J >  ♦  C22 ( L  >  »U(  I +1  *  J )  + 

X  C23(L)*UU,  J  +  l  I  +  C24tL)»U( I-l.J)  *■  C25  (  L  )  *Ut  I  ,  J-l )  + 

X  C261L ) *U  t 1  +  2, J)  +  C27(L)*U(I,J*2)  ♦  C28 < L ) »U ( 1-2 , J )  ♦ 

X  C29(t)»U<  1,  J-2)  +  C30  (L>*V(I+1,J>  +  C  31  (  U  *V  (  I ,  J+  1)  ♦ 

X  C32 (L  )  *V  (  1-1, J)  +  C33( L ) »V(  I, J-l)  +  C34 I L ) *V I  I +2 , J I  + 

X  C35(L) »Vt  I, J  +  2)  ♦  C36( L  )  •  V  ( 1-2, J)  ♦  C37 I L J • V (I , J-2 )  ♦ 

X  C38IL) 

RETURN 

END 

FGRTRAN  MAP 

CRfcLXTS 

SUBROUTINE  RELXTS 

COMMON  U»V»REU,REV,USAVE,VSAVE»U1*V2«SIGX,SIGY,SIGZ*SIGXY*CAT, 
XSIGXB,SlGXBS,$lGYe,SIGYBS,SIGXM,SIGYM,SIGZM,SIGXF,SIGYF,SIGZF, 
XHX,HY,OMB, PRM.PRF, EM,EF, ALPHAM, AL PHAF , T, E X , E Y, F 1 , F2 , COST, S I  NT, 
XC1,C2,C3,C4,C5,C6,C7,CB,C9,C10,C11,C12,C13,C14,C15,C16,C17,C18, 
XC19,C20,C21,C22,C23,C24,C25,C26,C27,C28,C29,C30,C31,C32,C33,C34, 
XC35,C36,C37,C36,C39,C40,C41,C42,C43,C44,C4S,C46,C47,C48, 
XD1,D2,D3,D4,D5,C6,D7,D8,D9,D10,D11,D12, 

XEl,E2,E3,E4,E5,E6,E7,E8,E9,E10,Ell,E12,E13,E14tE15,Ei6,E17,E18,E19 
X,E2G,E21,E22,E23,E24,E25,E26,E27,E28,E29,E30,E31,E32 
X,AM,AF,BM,BF,CM,CF,DM,DF,  FM ,FF , GM.GF ,HM ,HF, 

XMP2,MP1,M,MM1,MM2,MM3,NP2,NP1,N,NMI .NM2.NM3, INP3, INP2, INP1 , IN, 
XINM1,INM2, INM3, IMP3, IMP2, IMP1, IM, I  MM  1, I  MM2, I  MM3, NL , NL  Ml  ,NLM2, 
XLN,LI»LJ»LAT»KNAT,NMFI»MFIJ,MFI,KNT»KPR08»IJTP,MFII* 
XNRX,NRD,NRXS,NRCS,NPRLX,NCPRLX,NTP.NPT,Sir,Rl,SIGR2,PCGPRX,SIGR, 

xnrxbt,ul,vl,kpsps,a,b,ksym,nkprob 

X, ALPHAX, ALPHAY, I  JR AI P, DA , 08 ,  NRAIP 

DIMENSION  U(20,20),V(20,20),REU<20,20),REV(20,20) , 

XE  1(17, 17), E  2(17, 17), E  3(17, 17), E  4(17, 17), E  5(17, 17), E  6(17,17), 
XE  7(17, 17), E  8 ( 17, 17 ) , E  9( 17, 17 ) , E10< 1 7 , 17) ,E1 1 ( 17, 17) ,E12 ( 17, ! 7 ) , 
XE13I 17,17) ,E14( 17, 17),E15( 17,17),E16( 17,17), E17I17, 17) , E 18 ( 17,17), 
XE19(17,17),E20( 17,17 ),E2 1(17, 17 ),E22( 17,17 >,E23( 17,17), E24( 17,1 7) , 
XE25 (17, 17 ) ,E26( 17,17 > , E27C 17,17 ),E28( 17,17) ,E29(17, 17), £30(17,17), 


XE31(17»17)»E32(17«17>, 

XLN(20»2C),MFl ( 2C , 20 ) *  KNT ( 20  T  20  I ,  MF  I I ( 200 ) , MF I J ( ZOO ) 

DIMENSION  SIGXM(40),SIGYM(4G),SIGZK(40),SIGXF(40>,SIGYF(40> . 
XSIGZFI4C) .COST (40), SINT (40), 

XC  1(40), C  2(40), C  3(40), C  4(40), C  5(40), C  6(40), C  7(40), C  8(40) 
XC  9(40) ,C10(40) ,C 1 1 ( 40 ) , C 12  I  40 ) ,C13(40) , C 14 ( 40 ) , C 1 5 ( 40  I ,C16(40) 
XC17(40) ,C18(40)  ,C19(40),C20( 40) ,C2l( 40) ,C22(40) ,C23(40) ,C24(40) 
XC 25(40) ,C26(40) *C27( 40) ,C28(40) , C29(40) ,C30< 40 ) ,C31 (40) ,C32 (40 ) 
XC33(40) ,C34(40) ,C35(40) ,C36( 40 ) ,C37(40) ,C38(40) ,LI(40) ,LJ(40> 
DIMENSION  HXI 20) ,HY( 20) , I JTP ( 20) ,D1 ( 20 ) , D2 ( 20 ) , D3 ( 20 > , 04 ( 20 ) , 
XD5( 20), 06 (20), 07 (20 1,06(201, 09 (20), DIO (20) ,D1 l ( 20 > ,D12( 20) , 
XSIGRK10)  .SIGR2I  10),  I  JRAIP(30),  0AI15),  DB(15) 

DIMENSION  PURX( 10) ,PVRY(10), Afl L J l 1 5 ) , ABK J ( 1 5 ) 

KNU3,IN)=8 

KNT ( I P, 3 ) *10 

IMM4=IM-4 

I NM4= I N-4 

NTCL2=0 

NTCNL=0 

REUS=0.0 

REVS=O.C 

NRXS-0 

NPRXS*0 

DO  50C0  I J= 1 ,NRA I P 

A0IJlIJ)=((DA(IJ)tDBIIJ)l/(DA(IJ)+D6(IJ)»(EF/EM)))*EF/EM 
5CG0  ABKJ( I J)=( ( DA ( I JJ+DBI IJ ) )/(DA( I J I *( EM/EF ) +06 ( I J ) ) >*EM/EF 

4001  IF  (NRXS-NRX)  4002,3004,3004 

4002  NRX$=NRX$+1 
NPRXS=NPRXS+1 

DO  5001  I J  =  1 , NR  A  I P 
I J 1= l  J»2-l 
I JJ=  I  J*2 
I  =  I  JR A  I P ( I J l ) 

J- 1 J  RA I P ( IJJ) 

K  I  =  1  ♦  1 
KJ= J+l 

IF  (U( I , J ) .EQ.0.0 )  GO  TO  5002 

EUI J  =(U(KI,KJ)-AB!J( IJ)»(U(KI,KJ)-U( I,J) ) )/U( I , J) 

AUHXfKl ) 

A2=HY (KJ ) 

A3=HX ( K I— 1 ) 

A4=HY ( K J- 1 ) 

G=GK 
P  =  AM 

E£l=2.0/( AIM A1+A3) ) 

EE2=-2.0/( A1*A3) 

EE3=2.0/(A3*(A1+A3) ) 

EE4=2.0/( A2M A2+A4) ) 

EE5=~2»C/(A2*A4) 

EE6=2.C/(A4*(A2+A4) ) 

EE16=1.C/(A1«A2«A3*A4*(A1+A3)*(A2*A4)1 

EE7=A3»*2*A4«*2«EE16 

EE8=EE16*I A2*«2-A4**2)«A3*»2 

EE9=-EEI6«A2»*2«A3**2 

EE10»EE16»IAI*»2-A3*«2)*A4«*2 

EE11=EE16*(A1»»2-A3»»2)»(A2**2-A4*«2) 

EE12  =  EE16MA1«*2-A3»«2)M-A2**2) 

EE13*EE16»(-A1*»2)*A4**2 
EE14=EE16*(-A1««2)*( A2*«2-A4**2) 

EE15*EE16M-A1*«2IM-A2**2) 

EE2i  =  G*(PU.0)*EE2+G«P*EE5 
EE26=G*E£ 1 1 


EE31*G*EE7 
E£33=G»£E 15 

EE35=G*P«EE2+GMP+1.0)*EE5 
EE4u=E£26/EE35 
EE4i=EE26/EE2l 
E21 IKI,KJ)*-EE40*EE33*EUIJ 
E  32 ( K I , K J  )  =  E£33»EU  I  J 
GO  TO  5003 
5002  E21 ( K  I , KJ  )  =C.O 
E32 ( KI , K J ) =C .0 

5C03  IF  ( V ( I , J ) . EQ.0.0 )  GO  TO  5004 

EVI J=(V(KI,KJ)-ABIJl IJ)MVIKI,KJ)-VC I, J ) ) )/V(I, J) 
A1=HX ( K I ) 

A2=HY (KJ ) 

A3=HX (KI-1 I 
A4=HY (KJ-L ) 

G=GM 
P= AM 

EEl=2.0/( A1MA1+A3) ) 

EE2=-2.0/( A1*A3) 

EE3  =  2.0/(A3MA1-*A3)  » 

EE4  =  2.0/(  A2MA2  +  A4)  ) 

EE5=-2.0/(A2*A4) 

EE6=2 .0/ (  A4M  A2«-A4  )  ) 

EE  16  =  1.07 ( Al*A2«A3*A4*(Al  +  A3)*l A2+A4) ) 

EE7=A3«»2*A4**2*EE16 

CE8=EE16*( A2**2-A4**2)*A3**2 

EE9=-EE16»A2*»2*A3**2 

EElu=EE16*( Ai**2-A3**2)«A4*«2 

EEli=EE16»IAl»*2-A3*«2)*(A2*»2-A4»«2) 

EE12=EE16*(A «*2-A3*»2)*(-A2*»2] 
EE13=EE16*(-A1**2)«A4*«2 
EE14=EE16*(-A1*«2 )•( A2*»2-A4«*2) 
EE15=EE16M-A1*#2)M-A2**2) 

CE21=G*( P+1.0 )*EE2+G»P*EE5 

EE26=G»EEil 

EE31=G»EE7 

EE33=GtEC15 

EE35«G*P*EE2  +  GMP  +  1.0)*fcE5 
EE4v=EE26/EE35 
£E4i=EE26/EC21 
E13(K[,KJ)=E633*EVIJ 
E29(KI,KJ)=“EE41«EE33*EVIJ 
GO  TO  5C05 
5C04  E13(KI,KJ)-0.0 
E29 I KI , K J ) =0.C 

5CC5  IF  (U(KI,KJ).EO.O.C)  GO  TO  5006 

ElIKJMUl l,J)*ABKJ (IJ)*(U(KI,KJ)-U( I ,J ) ))/U(KI ,KJ) 
A1=HX(I ) 

A2=HY(J) 

A3=MX ( I -1 ) 

A4=HYl J-l ) 

G=GF 

P-AF 

EEl=2.0/( AIM A1+A3H 
EE2=-2.C/(A1«A3» 

EE3=2.C/(A3MA1*A3I1 
EE4=2.0/( A2MA2  +  A4) ) 

EE5=-2.0/(A2«A4) 

EE6=2.0/I  44M  A2+A4) ) 

EE16  =  1.0/(AI*A2«A3*A4MA1  +  A3)M A2+A4) ) 
EE7=A3*»2»A4»*2«6E16 


EE8=EE16*(A2**2-A4**2)*A3**2 
EE9=-EE16*A2**2»A3«2 
EE10=EE16*I A1»*2-A3*«2)*A4**2 
E£11=EE16*( A1 »»2-A3»»2 ) • ( A2**2-A4*»2 ) 

EE12  =  EE16*(A1*.2-A3*»2)M-A2»*2> 
EE13=EE16*(-A1»»2)*A4**2 
EE14«EE16* ( -A1 »»2 ) * ( A2»»2-A4»*2 ) 
EE15=£E16+(-Al»»2)+(-A2**2) 

EE21=G« { P+1.0 ) *EE2+G*P*£E5 

EE26=G*EE11 

EE31=G*EE7 

EE33=G*EE 15 

EE35=G*P»EE2+G*(P+1.0)*EE5 
EE40*EE26/EE35 
EE41=EE26/EE21 
E  6<I,J)=-EE40»FE31*EUKJ 
E31U,J)  =  EE31+EUKJ 
CO  TO  5007 

5006  E  6<I,JI=0.G 
E31 ( I t J ) =0.0 

5007  IF  I  V  ( K1 , K J ) .£0.0. 01  GO  TO  5008 

EVKJ=(V(I, JI+ABKJ I IJ )«( VIKI.KJ )-V( It J) J >/VCKl,KJ» 
Al=HXU I 
A2=HY ( J 1 
A3=HX< 1-1 > 

A4=HY I J- 1  ) 

G=GF 

P=AF 

EE1=2.0/(A1*IA1+A3)1 
EE2=-2.G/I A1+A3) 

EE3=2.0/IA3»(A1+A3)I 
EE4=2.0/(A2M  A2  +  A4)) 

EE5=-2.0/(A2*A4) 

EE6=2.C/( A4«( A2+A4I) 

EE  16  =  1.0/ I A1*A2»A3+A4»( A1  +  A3)»I A2  +  A4) I 

EE7=A3**2»A4**2»EE16 

EE8=E£16*(A2**2-A4»«2)»A3»«2 

EE9=-EE16*A2»»2»A3»»2 

EE10=EE16*(A1*»2-A3+»2)*A4«»2 

EEll=£E16»( Al**2-A3»*2)*( A2»*2-A4»»2 ) 

EE12=EE16*( A1**2-A3**2)»I-A2*»2) 

EE13=EE16*(-A1»«2)«A4**2 

EE14=EE16»I-A1**2»*(A2*»2-A4»*2> 

EE15=FE16»I-A1*»21*(-A2»*2) 

E£21=G*IP+1.0)»EE2+G»P«EE5 

EE26=G*EE11 

EE31=G*EE7 

EE33=G«EE 15 

EE35=G»P»EE2+G«I P+1.0 )»EE5 
EE4i^  =  EE26/EE35 
EE4i=E£26/EE21 
Ell ( I > J1=  EE31+EVKJ 
E271 1 ,  J  )=-EE41«EE31»FVKJ 
GO  TO  5C09 
5C08  Ell  I I,JJ=O.C 
E27  ( 1 1 J  )=0.C 
5009  CONTINUE 
5C01  CONTINUE 

IF  (NTCL2.NE.0I  GO  TO  5C10 
L=2 

I  *L 1  I L  ) 

J=LJ(L» 


6 1=HX { I ) 

A2=HY ( J } 

A3=HX( [-1 ) 

A4=HY( J-l ) 

A9  =  A1 +  HX (  1  +  1 ) 

A10  =  A2+HYI J+l  ) 

A 1 1  =  A3  +  HX ( 1-2) 

A12= A4+UY ( J-2 ) 

CC  i=COST I L ) »*2 
CC  2=SI NT ( L ) *+2 
CC  4=C0STIL)*SINT(L> 

CC  3=2.0»CC4 
CC  5=-CC4 
CClb=CC2-CCl 
CC6=-f A9+A1 )/< A1+A9) 

CC7=A9  /  (  A1*(A9-A1 1  ) 

CC8  =  -Al/(  A9M  A9-A1 )) 

CC9=-(A10+A2)/(A2*A10) 

CC10=A1C/I A2+CA10-A2) ) 

CCli=~A2/I A10»f AL0-A2I ) 

CC14-A3/IA11M  AU-A3I  ) 

CC15=(A12+A4l/( A4+A12) 

CC16=-A12/(A4»( A12-A4) ) 

CC17=A4/< A12»< A12-A4I ) 

CC12=IA1-A3)/(A1»A3) 

CC13=-A1/(A3»(A1+A3) ) 

CC6i=A3/(Al*(Al+A3)> 

CC2i=CCl+IBF*CC6-0F+CC12 ) +CC2» ( 8H»CM*CC6-BF*CF*CC12  » 

1  +CC3+ I GP*CC9-GF»CC15 ) 

CC22  =  CC1*(BK'»CH«CC9-BF*CF  +  CC15)  +CC2*  (BH»CC9-BF*CC15) 

1  +CC3*( GP*CC6-GF»CC12 ) 

IF  ( MFI 1 5 , J ) . EC  .  1  )  GO  TO  5012 
NTCL2=1 

CC23  =  CC1*8H*CC7+CC2  +  BM»CM»CC7-CCl*BF*CC61-CC2»BF»CF»CC6i 

CC31=CC3»GM»CC7-CC3*GF»CC61 

GO  TO  5C15 

5012  IF  (11(5,  Jl.EO. 0.0!  GO  TO  5013 

CUL2  =  (U<4,  J)  +  (EI“/EF)  »(U(  5,  J)-UI4,  J  )  )  )/U(5,  J) 

CVL2=(V(4, J)+CE«/EF)*CVI5,J)-V(4,J) ) )/V(5,J) 

GO  TO  5014 

5013  CUL2=0.0 
CVC2=0.C 

50 L4  CC23=CC1+BM*CC7+CC2*BM»CM*CC7-CC1*BF*CC61*CUL2-CC2*BF*CF«CC61*CUL2 
CC3i  =  CC3  *GM+CC7-CC3*GF*CC61»CVL2 
5C15  CC24=CC3»GM*CC10 

CC25  =  -CC1«BF*CC!.3-CC2»BF*CF*CC13 

CC26=-CC3*GF*CC16 

CC27=CC1*BM*CCB4CC2*BM»CH»CC0 

CC28=CC3»GM*CCll 

CC29=0.0 

CC  3o  =  -CC3»GF  »CC17 
CC32=CC1»BM»CM»CC1C+CC2+BM»CC10 
CC3J=-CC3+GF*CC 13 
CC34=-CC1»BF*CF»CC16-CC2*BF*CC16 
CC35=CC3*GH«CC8 

CC36=CC1»BM*CM»CC1 1+CC2*BM«CC11 
CC 37  =C  .0 

CC38=-CC1»BF+CF*CC17-CC2*BF*CC17 
CC39= I CC1+CC2 ) • ( FF-FM ) 

CC1=CC4 

CC2=CC5 

CC3=CC18 
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IF  (MFII5» JI.EO.l >  GO  TO  7012 

CC43=CC1»BM«CC7+CC2«BM»CM»CC7-CC1»BF»CC61-CC2*BF*CF*CC61 

CC51=CC3«GH*CC7-CC3*GF«CC6l 

GO  TO  7G1 5 

7012  CC43=CC1»BM»CC7+CC2*BM.CM«CC7-CCI*8F*CC61*CUL2-CC2*BF*CF*CC61*CUL2 
CC51=CC3*GM.CC7-CC3*GF*CC61*CVL2 
7G15  CC4i.=CCl«(BM»CC6-BF*CC12)+CC2«(  BM»CM«CC6-8F»CF*CC12  I 
1  +  CC3* ( GK»CC9-GF»CCI5  J 

CC42=CC 1 • I BM*CM»CC9-8F*CF»CC 15 ) ♦CC2* ( 8H«CC9-BF»CCi5  J 
1  +CC3» I GM*CC6-GF»CC12 ) 

CC44=CC3*GM«CC10 

CC45=-CC1«BF«CC13-CC2»BF*CF*CC13 

CC46=-CC3«GF*CC16 

CC47-CC 1 •BM«CC8+CC2*BM*CM«CC8 

CC46=CC3»GM«CCll 

CC49*0.G 

CC50=-CC3*GF*CC17 

CC52=CC1«BM»CM*CC1C+CC2»BM»CC10 

CC53*-CC3»GF*CC13 

CC54=-CCl*BF«CF*CC16-CC2»BF»CC16 

CC55=CC3*GM»CC8 

CC5o=CCl«8M*CM*CCll+CC2*BM»CCll 
CC57=0 .0 

CC5b*-CCi *BF*CF»CC17-CC2*BF»CC17 
CC59=(CCUCC2J»<FF-FM> 

CC4**CC22/CC42 
CC6C=CC41/CC21 
C  1 tt )=CC21-CC41*CC4C 
C  2<L)=CC22-CC42»CC40 
C  3  I L  I  =CC23-CC43«CC40 
C  4t  L  ) =CC24-CC44»CC40 
C  5  t  L  )  *CC25-CC4  5  »CC40 
C  61 L I-CC26— CC46  »CC40 
C  7 ( L  J  =CC27-CC47*CC40 
C  6(L)=CC28-CC48*CC40 
C  9  t  L  )=CC29-CC49*CC40 
ClOt  L  )=CC33-CC50«CC4  0 
C11(L)*CC31-CC51«CC4G 
C12Cl)=CC32-CC52»CC40 
C13 ( L  J=CC33-CC53  »CC40 
C14(L)=CC34-CC54*CC40 
C15t  L  )=CC35-CC55»CC40 
C16<L)=CC36-CC56»CC40 
C17 ( L  )  =CC37-CC57  »CC40 
C18  I  L  )  =CC38-CC58*CC40 
C19  t  L  J =CC39-CC59*CC40 
C20 (L ) =CC41-CC21 »CC60 
C2 1 1  L  )  =CC42-CC22*CC60 
C22 I L ) =CC43-CC23»CC60 
C23(U=CC44-CC24*CC60 
C24 ( L ) =CC45-CC25»CC60 
C25 ( L  )=CC46-CC26»CC60 
C26(L ) =CC47-CC27*CC60 
C27 ( L  J  =  CC48-CC28»CC60 
C28 ( L ) ®CC49-CC29»CC60 
C29  t  L  )  =  CC50-CC30*CC60 
C30 ( L ) =CC51-CC31*CC60 
C31tL)*CC52-CC32«CC60 
C32IL  I=CC53-CC33«CC60 
C33(LI=CC54-CC34»CC60 
C34  t  L I =CC55“CC35  »CC60 


C35(LJ*CC56-CC36*CC60 
C36(LJ=CC57-CC37«CC60 
C37 ( L  )  =CC58-CC38»CC6C 
C38(L)=CC59-CC39«CC60 
5010  CONTINUE 

IF  <NTCNL.NE.OJ  GO  TO  5020 
L=NLM1 
I-LKLI 
J  =  LJ  t  L ) 

A1=HX ( I ) 

A2=HY(JJ 
A3=HX  1 1 - 1 ) 

A4=HY  t  J-l I 
A9  =  A 1 +HX (1*1) 

A10= A2+HY  t  J+ 1 ) 

A11=A3+HXI 1-2) 

A 1 2  =  A4  +  HY I  J-2  ) 

CC  1  =  COST  t  L ) • • 2 

CC  2=SINTIL)»*2 

CC  4=C0STtL)«SINT(l J 

CC  3*2.C«CC4 

CC  5=-CC4 

CC18=CC2-CC1 

CC6=— (A9+A1 )  / t  A1 ■ A9 ) 

CC7=A9/(A1»I A9-AI) ) 

CC8=-Al/t  A9M  A9-A1M 
CC9=-<A10+A2)/t A2*A10) 

CC10  =  A10/( A2*( A10-A2  t ) 

CClis-A2/tAl0*(A10“A2J) 

CC12=tAll+A3)/( A3*A11) 

CC13=-All/(A3*t A11-A3J ) 

CCl4=A3/t A1 1» I A11-A3 i ) 

CC17=A4/tA12*(A12-A4l ) 

CC15  =  t  A2-A4 ) / t  A2« A4) 

CC16  =  -A2/ t  A4» ( A2  +  A4 I ) 

CC71  =  A4/( A2»(A2  +  A4  J  J 

CC2i=CCl*l 8M*CC6-BF*CC12 )+CC2*( BH»CM»CC6-BF»CF»CC12) 
l  +CC3*(CK*CC9-GF*CG15) 

CC22=CC l*t  BM*CM»CC9-8F*CF«CC15) +CC2*( BH*CC9-BF»CC15 ) 
l  +CC3» ( GM»CC6-GF«CC12 ) 

CC23*CC1*BM»CC7+CC2»BM»CM*CC7 
IF  (MFlt I.5J.E0.1 J  GO  TO  5022 
NTCNL=1 

CC24=CC3*GH«CC10-CC3«GF»CC71 

CC32=CC1»BH*CM*CC10+CC2«BM»CC10-CC1»BF*CF*CC71-CC2»BF»CC71 
GO  TO  5025 

5022  IF  (UCI.5J.E0.0.0J  GO  TO  5023 

CUNL=CUC I,4)+(EP/EF)«(U< I»5)-U< I.4J  J  J/U( I ,5> 
CVNL=tV(I,4)+tEM/EF)»(Vt I.5J-VtI»4JJ)/V(I»5) 

GO  TO  5C24 

5023  CUNl=O.C 
CVNL=C.C 

5024  CC24=CC3«GH*CC10-CC3*GF«CC71»CUNL 
CC3c=CCl»BM*CM*CC10+CC2*BM*CC10-CCl*BF*CF*CC71*CVNL-CC2*BF*CC71* 

XCVNL 

5025  CC25=-CC1*BF*CC13-CC2*BF*CF»CC13 
CC26=-CC3*GF»CC16 

CC27=CC1 *BM»CC8+CC2*BH»CM»CC8 
CC28=CC3«GH*CCll 

CC29*-CC1*8F*CC14-CC2«BF»CF*CC14 

CC3o=0. C 

CC3i=CC3»GH»CC7 
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CC33=-CC3*GF*CC13 

CC34=-CC1*BF*CF*CC16-CCZ*BF*CC16 

CC35=CC3*GM*CC8 

CC36=CC1*RM»CM*CC11+CC2*BM»CC11 

CC37=-CC3*GF*CC 14 

CC36=C.C 

CC39=  ICC1*CC2)*IFF-FM) 

CC1=CC4 

CC2=CC5 

CC3=CC1E 

IF  (MFXII)SI.EQ.l)  GO  TO  8022 
CC44=CC3*GM*CC1C-CC3*GF*CC71 

CC52=CC 1*BM*CM»CC1C+CC2*BM*CC1C-CC 1 »BF*CF»CC71-CC2*BF*CC71 
GO  TO  8025 

8022  CC44=CC3*GM*CC1C-CC3*GF»CC71*CUNL 

CC52=CC1*BM*CM*CC1D+CC2«BM»CC10-CC 1*BF*CF*CC71»CVNL-CC2*BF»CC71* 
XCVNL 

8025  CC41=CC1 » ( 8^*CC6-BF*CC12 )  +CC2* (BM»CM*CC6-BF*CF*CC12! 

1  +CC3*IGK*CC9-GF*CC15> 

CC42=CC1*(BM*CM*CC9-BF*CF*CC15)+CC2*(BM*CC9-BF*CC15) 

1  ♦CC3*(GP*CC6-GF*CC12 I 

CC43=CC1 *BM*CC7 ♦CC2*BM*CM»CC7 
CC45=-CC1*BF*CC1 3-CC  2*BF*CF*CC13 
CC4$=-CC3*GF*CC16 
CC47=CC1*BM*CC8+CC2*BM*CM*CC8 
CC48*CC3*GM»CC1 1 

CC49=-CC1 *BF*CC 14-CC2*BF  »CF*CC 14 

CC5J*C.G 

CC5i=CC3*GM«CC7 

CC53=-CC3*GF*CC13 

CC54=-CC1 *BF*CF*CC16-CC2*BF*CC 16 

CC55=CC3*GK*CC8 

CC56=CCI*BM*CM*CC11+CC2*BM*CC11 

CC5/=-CC3*GF*CC14 

CC58=0.t 

CC59=ICC1*CC2)*(FF-FM) 

CC4C=CC22/CC42 
CC60=CC41/CC2 1 
C  1 ( L )=CC21-CC41*CC40 
C  2(L)*CC22-CC42*CC40 
C  31 L )=CC23-CC43*CC40 
C  4(L)-CC24-CC44»CC40 
,  C  51 L)=CC25-CC45*CC40 
C  6(L)=CC26-CC46»CC40 
C  7 ( L )=CC27-CC47*CC40 
C  BCL)=CC28-CC4R*CC40 
C  91 L ) =CC29-CC49*CC40 
C10(L)=CC30-CC5C*CC40 
Cll IL)=CC31-CC5i*CC40 
C121LI=CC32-CC52*CC40 
C13(L)=CC33-CC53*CC40 
C14IL  >=CC34-CC54*CC40 
C15(U  =  CC35-CC55«CC40 
C16{L)=CC36-CC56»CC40 
C17(L)=CC37-CC57*CC40 
C 18 ( L ) *CC38-CC58»CC40 
C19IL)=CC39-CC59*CC40 
C20(U  =  CC41-CC21*CC60 
C21IL)=CC42-CC22*CC60  ‘ 

C22(L  )=CC43-CC2  3*CC6i? 

C23lL)=CC44-CC24*CC60 
C24(U=CC4  5-CC2  5»CC60 


C25I L )  =CC46-CC26*CC60 
C26 ( L )=CC47-CC27*CC60 
C2  7  ( t_  1 =CC48-CC28*CC60 
C28 I L ) =CC49-CC29*CC60 
C29IL  >=CC50-CC3C*CC60 
C30(L)=CC51-CC3l»CC60 
C31II >=CC52-CC32*CC60 
C32<LI*CC53-CC33*CC60 
C33(L)=CC54-CC34*CC60 
C34(L)=CCS5-CC35*CC60 
C35IL)=CC56-CC36*CC60 
C36(L)=CC57-CC37*CC6C 
C37IL)=CC58-CC38*CC60 
C38(U=CC59-CC39*CC60 
5C20  CONTINUE 

IF  (MFI  15,  INMl) -NE.D  GO  TO  503C 
A 1  =  HXI3I 
A9  =  A1  ♦  HXI4) 

08  I  I  Nf'l  I  =  IGF*(A9**2  -  A1**2I  ♦  GM * A  1**2 ) / I  A 1 • A9* ( A9  -  ADI 
09IINMI  =  -GM*A1/(A9*(  A9  -  AD) 

5030  CONTINUE 

IF  (MFI  ( IMM1.5I.NE.D  GO  TO  5040 
A  2  =  H  Y  ( 3  ) 

A10  =  A2  +  HY 1 4  I 

D2IIMPD  =  t  GF*  C  A10**2  -  A2**2)  +  GM*  A2**2  )  /  (  A2*A  10*  I A10  -  A2  I) 
D3IIMM1)  =  -GM.A2/IA10*! A10  -  A2 I) 

5o40  CONTINUE 

GO  TO  (4201, 4202, 42011, KPROB 
4201  KMM1=P*1 
KHP 2  =  PP2 
KNH1=NM1 
KNP2=NP2 
GO  TO  4203 
4ZC2  KMM1 =NM1 
KPP2-NP2 
KNM1= YM1 
KNP2=PP2 

42C3  OC  50  1  11=2, KMM1 
1  I  *KMP2- 1 [ I 
DO  50  JJJ=2,KNM1 
JJ=KNP2-JJJ 

GO  TO  14204,4205, 4204) , KPROB 

4204  I  =  1 1 
J- J  J 

GO  TO  4113 

4205  I=JJ 
J=  I  I 

4H3  KNAT  =  KNT  I  I  ,  J  ) 

MFI AT=MFI 1 1 , J ) 

GO  TO  150,2002,2003,50,50,2006,2007,2008,2009,2010,2011,50.50, 
X50, 50, 50, 50), KNAT 

2002  CUAT=E1 ( I , J ) 

CVAT  =  E15 I  I , J ) 

GO  TO  1 

2003  LAT=LN ( 1 , J ) 

CUAT=Cl ( L AT ) 

C VAT  =  C21 1 L AT ) 

GO  TO  1 

2006  l A T=LN 1 1 »  J ) 

GO  TO  1 

2007  L AT=LN I  I , J ) 

GO  TO  1 
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2C08  CVAT-C7(J) 

GO  TO  1 

2009  CVAT=C10IJ) 

go  ro  1 

2010  CUAT=C1( I  > 

GO  TO  1 

2C  1 1* CUAT  =  C4< I ) 

GO  TO  I 

1  DO  51  K1  J  =  1 ,13 

GO  TO  (9013,9002,9003,9004,9005,9006,9007,9008,9009,9010,9011, 
X9012.9001 I ,KI J 

9001  KI-1+1 
K  J  =  J 

GO  TO  30 

9002  K 1= 1 
KJ= J+ 1 
GO  TO  30 

9003  K I = I -1 
K  J= J 

GO  TO  30 

9004  KIM 

K J= J- 1 
GO  TO  30 
9C0 5  K I  =  I  + 1 
KJ= J+ 1 
GO  TO  3C 

9006  KIM-1 
K J= J+l 
GO  TO  30 

9007  K  1*1-1 
KJ= J-l 
GO  TO  30 

9Cu8  K  I  M  *1 
K J* J-l 
GO  TO  3C 
9009  K I = I *2 
K  J  =  J 


GO  TO  3G 

9010  K I = I 
KJ=J*2 
GO  TO  30 

9011  K 1=1-2 
K  J*  J 

GO  TO  3C 

9012  Kl = I 

K J= J-2 
CO  TO  30 

9013  K I = I 
K  J  =  J 


30  KN=KNT ( K I , K J ) 

GO  TO  (51,2,3,3,3,6,7,8,9,1 
2  GO  TO  (213,202,203,204,205, 
2 J 1  REUIKI, KJ)=REU(KI,KJ1-REUS 
REUIKI, KJ)=REU (Kl.KJ l-REVS 
REVIKI.KJ l=REV(KI,KJ I -REUS 
REVIKI, KJ)=REVIKI,KJ l-REVS 
GO  TO  51 

202  REUIKI, KJ)=REUIKI,KJ)-REUS 
REUIKI.KJ )=REU(K I ,KJ l-REVS 
REV(K1 ,KJ l=REV( KI ,KJ I -REUS 
REV(KI,KJ  )=REV(K I ,KJ l-REVS 
GO  TO  51 


0.11, 51, 51, 51, 51, 51, 511, KN 
206,207,208,51,51,51,51,201)  ,KI J 
•  OMB* ( E  4IKI.KJI/CUAT) 

•GMB* (E  9 1 K I , K J I /C V AT  I 
•OMBME25IKI i KJ I /CUAT  I 
•0HBME18IKI, KJI/CVAT) 

•OMB* ( E  5(KI,KJ)/CUAT) 
*0MB»(E10(K1,KJ)/CVAT) 
•0MB*(E26(Kl,KJ)/CUAT) 

•OMB* IE19IKI, KJI/CVAT) 


203  REU(KI,KJ)=REU(K1,KJ l-REUS 
REUIKI«KJ)=REU(KI,KJ l-REVS 
REV(KI,KJI=REV(KI,KJ l-REUS 
KEV(KI,KJ l=REV(KI ,KJ l-REVS 
GO  TO  51 

204  REU (KI,KJ)=REUIKl,KJ l-REUS 
REUIKI, KJ)=REUIKl,KJ l-REVS 
REVIKI.KJ )=REV(KI,KJ l-REUS 
REV(KI,KJ)=REV(K1,KJ l-REVS 
GO  TO  51 

205  REU(KI,KJ)=REU(KI,KJ l-REVS 
REU(KI ,KJ|=REU(KI,KJ l-REUS 
REV(KI,KJ)=REV(KI,KJ l-REUS 
REV(Kl,KJ I=REV(K1,KJ l-REVS 
GO  TO  51 

2C6  REUIKI ,KJ l=REU(KI,KJ l-REVS 
REU ( Kl.KJ I =REU(KI,KJ l-REUS 
REV l KI,KJ)=REV(K1,KJ l-REUS 
REV(K1,KJ)=REV(KI,KJ l-REVS 
GO  TO  51 

207  REUIKI, KJ)=REU (Kl.KJ l-REVS 
REU(K1,KJ)=REU(KI,KJ l-REUS 
REV(KI,KJI  =  REV(KI,KJ)-P.EUS 
REV  IK I.KJ ]=REVI Kl.KJ l-REVS 
GO  TO  51 

208  REUIKI, KJ)=REU(KItKJ)-REVS 
REUIK I.KJ I =REU( Kl.KJ l-REUS 
REVIKI, KJ)= REVIKI.KJ l-REUS 
REVIKI.KJ l  =  REV IK  I, KJI-RfcVS 
GO  TO  51 

213  REUS  =  REU 1 1 , J I 

REUIKI, KJ)=REU(K1,KJ l-REUS 
REVS=REV ( I , J I 

RE  VI Kl.KJ I  =  REV< Kl.KJ l-REVS 
U< I , J )=U( 1, JI-REUS*OMB/CUAT 
VII ,J)=V( I,J)-REVS*OMB/CVAT 
GO  TO  51 
3  L  =  IN  I K I ,KJ  I 

GO  TO  (313,302,303,304,51,51 

301  REUIKI, KJI=REU(KI,KJ l-REUS 
REUIKI, KJ)=RELHKI, KJ )-RfcVS 
REVIKI  ,KJJ=REV(KI,KJ l-REUS 
REVIKI ,KJ )=REV(K I.KJ l-REVS 
GO  TO  51 

302  REUIKI, KJ)=REU(KI,KJ l-REUS 
REUIKI, KJ)=REU(KI,KJ)-REVS 
KEVIK I, KJ)=REV IK I.KJ l-REUS 
REVIKI ,KJI=REV(KI ,KJ l-REVS 
GO  TO  51 

303  REUIKI, KJ)=REUIKI,KJ l-REUS 
REUIKI ,KJ)=REU( Kl.KJ l-REVS 
RE  VI Kl.KJ )=REV IK I.KJ l-REUS 
REV  I KI,KJ)=REV(K I.KJ l-REVS 
GO  TO  51 

304  REUIKI, KJ)=REU(KI,KJ l-REUS 
REU I Kl.KJ) -REUIKI.KJ l-REVS 
REVIKI.KJ)* REVIKI.KJ l-REUS 
REVIKI, KJ ) =REV IK I.KJ l-REVS 
GO  TO  51 

309  REUIKI, KJI=RFU(KI,KJ)-REUS 
REUIKI, KJI=REU(KI, KJI-RfcVS 
REVIKI, KJI=REV (Kl.KJ l-REUS 


•OMB* I E  2  I K  I , K J I /CUAT I 
•OMB* ( E  7(KI,KJ)/CVAT) 
•OMB* I E2  3 ( K I , K J ) /CUAT 1 
•0M8*IE16(KI,KJ)/CVAT> 

•OMB* ( E  31KI,KJ)/CUAT) 
•OMB* I E  8IKI.KJI/CVATI 
•OMB* (E24(KI,KJ)/CUAT) 
•0MB*(EI7IKI,KJ)/CVAT) 

*0MB*(E13IKI .KJI/CVAT) 
•0MB*(E21(KI,KJI/CUAT) 
•0MB*(£32(KI,KJ)/CUAT) 
*0MB*(E29(KI, KJI/CVAT) 

*OMB» I 614IK I , KJ I /CVAT I 
•OMB« I E22 I K I ,KJ I /CUAT I 
•  DMBME14IKI.KJI/CUAT) 
•0MB*(E30(KI, KJI/CVAT) 

*0MB»(E11IKI, KJI/CVAT) 
•OMB* I E  6  I K 1 , K J I /CUAT ) 
•OMB* (E31IK1.KJ I /CUAT ) 
*0MB*(E27(KI, KJI/CVAT) 

*0MB*IE12(KI, KJI/CVAT) 
•CHB*(E20(KI»KJ) /CUAT ) 
*0MB*(E12(KI,KJ)/CUAT) 
•0MB*IE28(KI, KJI/CVAT) 


•  OMB*  I  E  HKI.KJI/COAT) 
•0MBMEI5IKI,  KJI/CVAT) 


51,51,309,310,311,312,301) ,K I J 
•OMB* I C  5  I L I /CUAT I 

•  0MBMC13ILI/CVAT) 
*0MB*(C24(L)/CUAT) 
•UMB*IC32(L)/CVAT) 

•OMB* I C  6(1  I /CUAT I 
•OMB* ( C 14 1 L ) /CVAT I 
•OMB* I C25 ( L I /CUAT I 

•  OMB* I C33 I L I /C VAT  I 

•  OMB* (C  3  I L I /CUAT I 
•UMB*(C11(LJ/CVAT) 
•OMB*(C22(L)/CUATI 
•OMB*(C30(L)/CVAT) 

•OMB* I C  41 L I /CUAT I 
•0MB»(C12(LI/CVAT) 

•OMB* (C23 ( l ) /CUAT ) 

*0MB*(C31(L l/CVAT) 

•  UMB* I C  9 1 L I /CUAT ) 
•0MB*IC17(L)/CVAT) 

•OMB* I C28 (L I /CUAT I 


REV(KI,KJ)=REV(KI,KJ  I -RE VS 
GO  TO  51 

310  REU(KI,KJ)=REU(KI,KJ>-REUS 
REUIK1.KJ) =REUIKl,KJ l-REVS 
REV(KI,KJ)=REV(KI,KJ  l-REUS 
REV(KI,KJ)=REV(KI,KJ  >-REVS 
GO  TO  51 

311  REU(KI,KJ)=REU(K1,KJ >-REUS 
REU(Kl,KJ)=REU(Kl,KJ)-REVS 
REVIK1,KJ)=REV(KI,KJ )-REUS 
REV(Kl»KJ)=REV(KI»KJ)-REVS 

GO  TO  51 

312  REUIKI,KJJ*REU(KI,KJ)-REUS 
REU(KI,KJ)=REUCKl,KJ  l-REVS 
REV{KI,KJ)=REV(K1,KJ  l-REUS 
REV(KI,KJI=REV(KI,KJ  l-REVS 
GO  TO  51 

313  REUS=REU(I,J> 

314  REU(KI,KJ)*REU(K1,KJ l-REUS 
REVS=REV(I»J> 

REVIKI,KJI=REV(KI,KJ)-REVS 
U(I,J1*UII,J)-REUS»0MB/CUAT 
VU,J)=V(I,J)-REVS*OMB/CVAT 
GO  TO  51 

6  L=LN(Kl,KJ) 

GO  TO  51 

7  L  =  LN( KI  ,KJ  I 
GO  TO  51 

8  GO  10(613,51,803,51,51,51,51, 
803  REV(KI,KJ)=REV(KI,KJ)-REVS 

GO  TO  51 

811  REV(KI,KJ)=REV(KI»KJ l-REVS 
GO  TO  51 

813  HEVS  =  REVU,J> 

REV(KI,KJI=REV(K[,KJ J-REVS 
V (  1 »  J I =V ( I , J I -RE VS  »OMB/CVAT 
REUS=G.O 
GO  10  51 

9  GO  TO  (913,51,51,51,51,51,51, 
901  REV(KI,KJ)=REV(KI,KJ )-REVS 

GO  TO  51 

909  REV(KI,KJ)=REV(KI,KJI-REVS 
GO  TO  51 

913  R£VS=REV( I , J) 

REV(K1,KJ)=REVIK[,KJ l-REVS 
V<  1  »  J  I  =  V ( I , J ) -REVS»OMB/ CVAT 
REUS "0 • 0 
GO  TO  51 

10  GO  TO  (1013,51,51,1004,51,51, 
i0c4  REU (K l «  KJ I =REU<  K I » K J I -REUS 

GO  TO  51 

1012  REU(KI,KJ)=REU(KI,KJJ-REUS 
GO  TO  51 

1013  REUS=RCU ( I , J ) 
REU(KI,KJ)=REU(KI,KJ l-REUS 
U(  I  ,  J  I  =U( 1, J)-REUS*OMB/CUAT 
REVS  =C .C 

GO  TO  51 

11  GO  TO  (1113,1102,51,51,51,51 
1102  REU ( K I , KJ 1=REU( K I »KJ l-REUS 

GO  TO  51 

1110  REU(K1,KJ)=REU(KI,KJ)-REU$ 


•  OMB* IC36(L l/CVAT) 

*CIMB«IC10(L)/CUAT) 
«CMB*(C18(L)/CVAT) 
*QMB»(C29(L l/CUATI 
*0MB*IC37IL)/CVAT> 

*OMB»(C  7 (L I /CUAT I 
*OHB» (C15 ( L I /CVAT I 
*0MB*(C26(L)/CUAT) 
•0KB*(C34(L)/CVAT> 

*OHB*(C  8 (L l/CUAT I 
•OKB » (C16(L)/CVAT) 
•OMB»(C27(L l/CUAT I 
•0MB»(C35(L l/CVAT) 


•OMB* ( C  1 (L ) /CUAT I 
•OKB • (C21(L)/CVAT) 


51,51,51,611,51.51  I , K I J 
•OKB* ( 0  8(J1/CVATJ 


*OHB» ( D  91JI/CVAT) 


•OKB* l 0  7 ( J l/CVAT I 


51,909,51,51,51,901) ,KIJ 
*GMB»  (D1KJI/CVAT) 


>0KB*(D12( JI/CVATI 


•UMB»(D1Q(JI/CVAT) 


51,51,51,51,51, 1012,51 ),KI  J 
•OMB* ( 0  2<I)/CUATJ 


•OMB* ( 0  3 ( 1 1 /CUAT ) 


>OMB*(0  1(11  /CUAT I 


51,51,51,1110,51,51,51 >,K!  J 
•OMB* (0  5(1) /CUAT I 


»CMB« ( D  6 1 I l/CUAT) 


GO  TO  51 

1113  REUS  =  REU ( I , J  I 

REU(KI,KJ)=REU(KI,KJ>-REUS  •OHB*(D  4(1) /CUAT ) 

U< I,J)=U( I, J)-REUS«OMB/CUAT 
REVS=0.0 
GO  TO  51 
51  CONTINUE 
50  CONTINUE 
N  P  T  =  N  T  P 

167  IF  INRXS.LE.NRXBTI  GO  TO  3005 
NPT  =0 

00  3001  I J  =  1 , NT P 
I  =  I JTPl 2* l J-l  1 
J= I JTP ( 2* I J I 
Al  =HX I  I ) 

A2-HV ( J I 
A3=HX( 1-1) 

PURXUJ  )  =  (  1 .0/  l  A1  »A3»  (  A1  +  A3  )  I )  *  l  A3»»2*U!  I  *1 ,  J  I  ♦  I  Al*«2-A3«*2 1  *U  I  1 , 

1 J)-A1»*2*U( 1-1, J)  I 

PVR V ( IJ)  =  (1.0/(A2*A4»(A2+A4I) >*( A4««2*V( I , J ♦ 1 1 ♦ ( A2« • 2- A 4» *2 ) • V ( I  • 

1 J ) -A2 ** 2 • V ( I. J-l  I  ) 

GO  TO  13100. 3200, 3100), KPROB 
3100  SIGR2 I  1 J I  =  BM»PURX ( IJ  )  +  BK»CM*PVRY( IJJ-FK 
GO  10  3cOi 

3200  SIGR2UJ)=BM«CM<PURX(  IJ)+BM*PVRY(  1JI-FM 
3C  C 1  CONTINUE 

00  3002  I J  =  1 , NT P 
1=1 JTP(2« I J-l I 

J=IJTP(2*IJI  _ 

PCG=ABS( ( (SIGR2I IJI-SIGRK I J I  I/S IGR2( IJ ) 1*100.0 ) 

IF  (PCG.IE  • PCGPRX I  GO  TO  3002 
NPT  =  NPT  +  1 

3002  SIGRH  IJ)  =  SIGR2(IJ1 

IF  (NPI.EU.OI  GC  TO  3004 
3C05  CONTINUE 

IFINRXS-NCPRLX1  4005,4005,4004 
4GC4  CONTINUE 

IF  ( NPRXS-NPRLX 1  4001,4006,4006 
4006  NPRXS=G 
40 J 5  CONTINUE 

WRITE  (5,40411  NRXS, KPROB 

4C41  FORMAT  (  1HI  »49X,  21H  RESULTS  OF  RELAX  ND.  ,  14, 5X,  1IHPRC1BLEM  NO.  ,13/1 
WRITE  (5,4042)  (((l,'J,U(I,J),V(l,J),REU(I,J),REV(l,JI),J=3,N),I=3, 

4042 1  FORMAT ( 1H  ,//»6X,lHl,3X,lHJ»18X»lHU, 19X , 1HV, 14X , 10HU  RE  SI  DUAL. 10X, 
110HV  RESIDUAL,///, ( 3X , 2 14, 6X ,4E20. 8 ) I 
WRIIE  (5,4043)  NPT, PCGPRX 
L  PRX  =  NR  XS 
GO  TO  4C01 

30C4  IF  INRXS.EO.LPRX)  GO  TO  4044 
WRITE  (5,4041)  NRXS, KPROB 

WRITE  15,4042)  ( ( l I , J, U 1 1 , J ) ,V ( I , J I , REU ( I , J ) ,RE VI  I , J I) . J  =  3 ,N) , L  =  3, 

:mi 

WRITE  (5,4043)  NPT, PCGPRX 

4043  FORMAT ( 1H  ,///.I10,92H  TEST  POINTS  HAVE  NOT  YET  CONVERGED  TO  THE 
1SPECIFIED  MINIMUM  CHANGE  IN  STRESS  PER  RELAX  OF  , F6.3.7HPERCENT) 

4044  RETURN 
END 

FORTRAN  MAP 

CSTRSTS 

SUBROUTINE  STRSTS 


206 


COMMON  U,V,REU,REV,USAVE,VSAVE,U1,V2,SIGX,SIGY,SIGZ,SIGXY,CAT, 
XSlGXB,SIGXBS,SIGYB,SIGYBS,SIGXM,SIGYM,SlGZM,SIGXFf SIGYF.SIGZF, 
XHX,HY,OKB,PRM,PRF,EM,EF, ALPHAM, ALPHAF , T , EX , E Y, F 1 , F 2 .COST , S I  NT, 
XC1,C2,C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15,C16,C17,C18, 
XC19,C2C,C21,C22,C23,C24,t25,C26,C27,C28,C29,C30,C3l,C32,C33,C34, 
XC35,C36,C37,C38,C39,C4O,C41,C42,C43.C44,C45,C46,C47,C40, 

XD1 ,02, 03, 04, 05.06,07,08,09,010,011,012, 

XEI,E2,E3,E4,E5,E6,E7,E6,E9,E10,E11,E12»E13,EI4,E15,E16,E17,E1B,E19 
X,E2C,E2l,E22,E23,E24,E25,E26,E27,E28,E29,E30,E31,E32 
X, AM, AF,BM,BF,CM,CF,DM,DF ,  FM , FF , GM, GF ,HM ,HF , 

XMP2,MPl,M,MMl,MM2,MM3,NP2,NPl,N,NMl,NM2,NM3, INP3, INP2, INP1, IN, 
XINM1 ,INK2,INM3,IMP3, IMP2, i MP 1 , IM, I  MM  1 , 1  MM2, I  MM3 , NL , NLM1 , NLM2 , 

XLN, LI ,LJ,LAT,KNAT,NMF[,MFI J , MF I , KNT .KPROB , I JTP , MF 1 1 , 
XNRX,NRD,NRXS,NRCS.NPRLX,NCPRLX,NTP,NPT,SIGRl,$IGR2,PCGPRX,SIGft. 
XNRXBT,UL,VL,KPSPS,A,B,KSYM,NKPROB 
X, At PH AX, ALPHAY 

DIMENSION  U(20,20),V(20,20),REU(20,20),REVI20,20), 

XC  1117, 17), E  2(17, 17), E  3(17, 17), E  4117, 17), E  5(17, 17), E  6(17,17), 
XE  7(17, 17), £  8(17, 17), E  91 17,17) ,E1C( 17,17) ,E11(17, 17) , E12( 17,17), 
XE13( 17,17) ,E14( 17,17), £15(17, 17), E16( 17 ,17) ,E17(17,17),E18(17,17), 
XE19(17,17),E20(17,17),E21(17,17),E22(17,17),E23(17,17),E24(17,17), 
XE25( 17, 17 ),E26( 17,17) ,£27(17,17 ),E28{ 17,17) ,E29( 17,17 ),E3C( 17,17), 
XG3l( 17,17) »E 32 ( 17,171, 

XLN (20, 20) ,MFI (20,20) »KNT( 20,20 ),MF IK 200),MF I J( 200) 

DIMENSION  SIGXM(40),SIGYM(4C),S1GZMI40),SIGXF(40) , SI6YF (40 ) , 
XStGZF(40),C0ST(4O),SINT(4C), 

XC  1(40), C  2(40), C  3(40), C  4(40), C  5(40), C  6(40), C  7(40), C  8(40), 

XC  9(40) ,C10(40),C11( 40).C12I40),C13(40) ,C14(40) ,C15(40) ,C16(40) , 
XC17l40),C18(40),C19(40),C20(40),C2t(40)»C22(40) ,C23(40) ,C24(40) , 
XC25(40),C26(4C ) ,C27( 40 ) , C28( 40 ) ,C29( 40 ) ,C30 ( 40) ,C31(40) ,C32(40), 
XC3314C) ,C34(40) ,C35(40) ,C36(40),C37(40),C38(40) ,LI (40) ,LJ(40) 
DIMENSION  HX(20),HY(20>, I JTP ( 20 ) ,Dl ( 20 ) ,D2( 20) , D3( 20 ) ,04(20 ) , 
XD5(20),D6(20) ,D7(2C) , 08 ( 20 ) , D9( 20 ) ,010( 20 ) , Dll ( 20) ,012 ( 20 ) , 

XSIGR1 (10),S1GR2(10),TXYF(40),TXYM(40) 

C  MATRIX  SIGX  IS  STORED  IN  E5  MATRIX 

C  MATRIX  SIGY  IS  STORED  IN  E6  MATRIX 

C  MATRIX  SIGZ  IS  STORED  IN  E7  MATRIX 

C  MATRIX  TXY  IS  STORED  IN  E8  MATRIX 

KNT ( 3 , I N ) =6 
KNT ( I M , 3 )=7 
232  DO  IOC  1=3, M 
00  IOC  J  =  3*N 
El (1 , J  )  =0 .0 
E2U,J>=0.0 
E3U,J)=0.0 
E4< l , J)=0.0 
E 5 (  I  , J  )  =  0.0 
£6 ( i , J )  =  O.C 
E7( I, J)  =  0.0 
E8( I , J)  =  0.0 
KN  =  KNT ( I, J) 

GO  TO  1100, 2, 3, 3, 3, 6, 7, 8, 9, 10, 11, 12,13, 14, 15, 16, 171, KN 
2  KMF 1  =  MFItl, J) 

GO  TO  (21,22 ) (KMFI 
21  BB  =  eM 
CC  =  CM 
FMF*  FM 
DD  =  CM 
HH  =  HM 
GG  =  GM 

IF  (KN  .LT.  3)  GO  TO  23 
IF  (KN  .IT.  9)  GO  TO  3C 


SIGZF (LI  = 
?  X YF ( L )  = 

24  A 9  =  HX(I) 
AlO*  HY(J) 


GO  TO  35 

22  BB  =  BF 
CC  *  CF 
FMF=  FF 
OD  =  CF 
HH  =  HF 
GG  =  GF 

IF  (KN  .LT.  3)  CO  TO  23 
IF  (KN  .LT.  9)  GO  TO  30 
GC  TO  35 

23  CALL  PART  I l ,HX ( I ) , HX( 1-1 ),UI 1*1, J ) ,U( I , J ) ,U( I 
CALL  PART  (1,HY(J),HY(J-1),V(I,J+1),V( I ,J),V( I 
CALL  PART  (1,HY(J),HY(J-1) ,U( I»J+1),U(I,J),U( I 
CALL  PART  (l,HX(I),HX(I-l),V(I+l,J),V(I,J),V(I 
GO  TO  4C 

3  All  »  HX(l-l)  +  HX(I-2) 

A12  =  HY(J-l)  ♦  HY(J-2) 

CALL  PART  (4,HX( I  - 1 ) ,A11,U( 1 , J ) , U ( I— 1,J),U( 1-2 
CALL  PART  (4,HY(J-1) >A12,V(1  , J ) ,V( I , J  —  1 ) ,V( I, J 
CALL  PART  (4,HY(J-1),A12,U(  I,J).U(  I,J-U,U(  l.J 
CALL  PART  (4,HX(l-l),AU,V(I,J),V(I-l,J),V(l-2 
L  =  LNU.J) 

S1GXF ( L I  =  BF*  ( PUX  ♦  CF*PVY )  -  FF 
SIGYF(L)  =  BF»( CF  *PUX  ♦  PVY)  -  FF 
DF*  ( PUX  *■  PVY)  -  HF 
GF* l PUY  +  PVX) 

♦  HX ( I ♦! ) 

♦  HYIJ+l) 

CALL  PART  (2,HX(l),A9fU(I,Jl,U(I+L,J),U(1+2,J) 
CALL  PART  (2,HY(J) , A10, V( I , J ) , V ( l , J+l ) , V ( I , J+2 
CALL  PART  (2,HY(J),A10,U( I , J ),Ut I*J+l),U(I,J+2 
CALL  PART  (2,HX( I ) , A9,V( I.J ),V( 1+1 , J ) ,V( 1+2, J) 
IF  (KN  .LT.  6)  GO  TO  25 
IF  (KN  .EC.  6)  GO  TO  26 
IF  (KN  .EQ.  7  )  GO  TO  27 
GO  TO  28 

25  SIGXMIL)  *  BM*(PUX  ♦  CM*PVY>  -  FM 
SIGYM(L)  =  BM*(CM*PUX  ♦  PVY)  -  FM 
SIGZM(L)  *  DM* ( PUX  +  PVY)  -  HM 
TXYM(L)  =  GM* ( PUY  +  PVX) 

GO  TO  ICO 

6  GO  TO  24 

PUX  =  PARTIAL  DERIVATIVE  OF  U  W.R.  TO  X 

PVX  =  PARTIAL  DERIVATIVE  OF  V  W.R.  TO  X 

WE  CANNOT  COMPUTE  PUX  OR  PVX 
L  =  l 

26  SIGXM(L)  *  8MMPUX  +  CM*PVYI  -  FH 
SIGYM(l)  =  BM* (CM*PUX  ♦  PVY)  -  FM 
SIGZMI1)  =  DM* I PUX  +  PVY)  -  HM 
TXYM(l)  =  GM* ( PUY  +  PVX) 

GO  TO  ICC 

7  GO  TO  24 

PUY  =  PARTIAL  DERIVATIVE  OF  U  W.R.  TO  Y 

PVY  =  PARTIAL  DERIVATIVE  OF  V  W.R.  TO  Y 

L  =  NL 

WE  CANNOT  COMPUTE  PUY  OR  PVY 

27  SIGXM(NL)  >=  BM*  ( PUX  ♦  CM*PVY>  -  FM 
SIGYM(NL)  *  BM* ( CM*PUX  +  PVY)  -  FM 
SIGZM(NL)  =  OM* ( PUX  ♦  PVY)  -  HM 
TXYM(NL)  =  GM* ( PUY  ♦  PVX) 

GO  TO  100 

8  GO  TO  2 


-1,J),PUX) 
,  J-l) ,PVY) 
,  J-l) ,PUY) 
-1,  J) ,PVX) 


,  J),PUX) 
-2), PVY) 
-2), PUY) 
,  J ) , PVX ) 


,PUX) 

) *PVYI 
)  ,  PUY ) 
,PVX» 


30  A9  =  HXU)  +  HX (  1*1) 

CALL  PART  (2,HX(  I  ),A9,U(  I,J)  ,UU*l,  Jl  ,UI  1+2. J),  PUX) 

CALL  PART  (2,HXU>,A9,VU,J),VU+1,J),VU+2,J),PVX> 

CALL  PART  U.HYI  JI.HYI  J-ll»VU»J+ll,V(  I  *  J  )  •  V  (  I.  J-l>  .PVY) 
CALL  PART  <1, HYIJ), HYIJ-1I,UU,J  +  1I.UU.J),UII, J-l), PUY) 
GO  TO  40 

9  All  =  HXU-1)  +  HX(  1-2) 

CALL  PART  (3, HXII-l), All  ,U  U  ,  J  ) ,  UU-i.  J  >  ,U(  1-2,  J  >  ,  PUX ) 
CALL  PART  13,  HXU-1).  All,  VU  ,  J  )  ,  VII-I,  J  )  .  VII-2,  Jl  ,PVX) 
CALL  PART  ll.HYIJ) ,  HY I J-l > , V  1 1 , J+l I , V ( I , J > , V ( I, J-1>,PVYJ 
CALL  PART  ll.HYIJ) ,HY I J— l ) ,U{ I, J+l) ,U( 1 ,J).U(I,J-1) ,PUY ) 
GO  10  45 

10  GO  TO  2 

35  A10  =  HYIJ)  ♦  HYIJ+1) 

CALL  PART  (2,HYIJ),A10,VU,J),VU,J  +  1)»VU,J+2),PVYI 
CALL  PART  (2,HY(J)«A10,UU,J),UU,J+l),U(IiJ+2) ,PUY ) 

CALL  PART  (  l.HXUl'HXI  I-1),U(  l+l,J)fU<  I-1,J),PUX) 

CALL  PART  (1 ,HX(I» ,HX( 1-1 » , V  I  1  +  1, J > ,V( I »J ) , V( I-1,J ) .PVX) 
GO  TO  40 

11  A12  =  HYIJ-l)  +  HYIJ-2) 

CALL  PART  (3,HY(J-1),A12,VU.J).V(  [,  J-l )  ,VU,  J-2)  .PVY) 
CALL  PART  (3,HY(J-1) ,A12,U( I »  J ) *  U( I,J-1)»U( I, J-2), PUY) 
CALL  PART  (1,HXU  >,HXU-l).UU  +  i.J).UU,J),UII-l,J),PUX) 
CALL  PART  (l.HXU),  HXU-1),  V  U +  1 ,  J  )  ,  V  U  ,  J  ) ,  V I  I -1 .  J  >  ,  PVX  > 
GO  TO  45 

12  GO  TC  24 

28  E5U.J)  =  BF*|PUX  +  CF*PVYI  -  FF 
£6U,J)  =  BF»(CF*PUX  +  PVY)  -  FF 
£7(1, Jl  =  DF* ( PUX  +  PVY)  -  HF 
£0U,JI  =  GF*  I PUY  +  PVX) 

GO  TO  ICO 

13  A9  =  HXU)  +  HX  (  I  +1 ) 

A12=  HY(J-l)  +  HY (J-2 ) 

CALL  PART  (2,HX( 1 ) , A9.LM  l.JI.UI I+l»J)»U(l+2»J)»PUX) 

CALL  PART  (2,HX( I ) ,  A9,V( I , Jl ,V( 1  +  1, J) ,V( 142, J) .PVX) 

CALL  PART  (3,HY(J-1>,A12,VU,J>,VU,J-1>,VU,J-2I,PVV) 
CALL  PART  (3,HYIJ-1)*A12,U( I » J ) »U< I , J-l ) »U( I, J-2) ,PUYI 

GO  TO  45 

14  All  =  HXU-1)  ♦  HXtI-2) 

A12  =  HY(J-l)  ♦  HY (J-2 ) 

CALL  PART  (3,HX( 1-1), All, U( l.JI.UI I-l,J)»U( 1-2, J), PUX) 
CALL  PART  (3, HXU-1), All, V(I,J),VU-1,J), V(I-2, J), PVX) 
CALL  PART  (3,HY(J-l),A12,VU,J),VtI,J-l),VUf J-2), PVY) 
CALL  PART  (3,HYIJ-1),A12,U(I,J).UU,J-1)»UU,J-2),PUYI 
GO  TO  45 

15  All  =  HXU-1)  +  HXU-2) 

A10  =  HYIJ)  ♦  HYIJ+l) 

CALL  PART  (3,HXU-l),All,UU,JI,UU-l,J),UU-2,J),PUX) 
CALL  PART  (3,HX| 1-1), All, V( I , J ) • V ( I-1,J ),Vt I -2, J), PVX) 
CALL  PART  (2, HYIJ  1, A1G, VI  I , J ), V ( I,J+1)«V( I , J+2 ) ,PVY) 

CALL  PART  (2,HY(J),A10,UU,J),Ut  I,  J+L > ,UII , J+2 1 ,PUY) 

GO  TO  45 

16  GO  TO  ICO 

C  WE  CANNOT  CCMPUTE  PUY  OR  PVY 

17  GO  TO  1(0 

C  WE  CANNOT  COMPUTE  PUX  OR  PVX 

40  E5I1.J)  =  BE* I PUX  ♦  CC*PV Y )  -  FMF 

E6 (1 , J 1  =  BB*(CC*PUX  ♦  PVY)  -  FMF 
E7 (I , J )  *  DD* I PUX  ♦  PVY)  -  HH 
E8II.J)  =  GG* I PUY  ♦  PVX) 

GO  10  ICO 

45  E5U.J)  =  BM* I PUX  +  CM»PVY)  -  FM 


E6U,J)  =  BM*(CM*PUX  ♦  PVY)  -  FM 
E7 1 1 , J )  =  DM* I PUX  +  PUY)  -  HM 
E8II.J)  =  GM* I PUY  +  PVX) 

100  CONTINUE 

C  FOR  INTERIOR  POINTS 

C  THE  VALUES  OF  SIGMA  1  ARE  STORED  IN  El  MATRIX 

C  THE  VALUES  OF  SIGMA  2  ARE  STORED  IN  E2  MATRIX 

C  THE  VALUES  OF  THETA  ARE  STORED  IN  E3  MATRIX 

C  THE  VALUES  OF  THE  VON  MISES  SUM  ARE  STORED  IN  E4  MATRIX 

DO  60  1=3, M 
OC  60  J=3,N 

IF  IMFIU.J)  .EC.  3)  GO  TO  65 
VTZS  *  .5ME5U.J)  ♦  E6I  I,  J)  ) 

VTZM  =  . 5* I E5  U , J )  -  £61 I.JI ) 

RADIUS  =  VTZM**2  ♦  E8II,JI**2 
RADIUS  =  SORTIRAOIUSI 
El  II  ,  Jl  =  VTZS  ♦  RADIUS 
E2 ( t , J )  =  VTZS  -  RADIUS 
E3 (1 , J I  =  -EBI I , J ) /VTZM 
E3 (I ,  J I  *  .5*ATANIE3I I , J ) ) 

E3II,J)  =  57.29578»E3U,J) 

IF  (KPSPS  .EO.  2)  GO  TO  62 

E4U,J)  =  Ell  I  » J)**2  -  E1U  ,  J  )*E2(  I  ,  J  )  +  E2U,J>**2 
GO  10  6C 

62  IF  (MFIU.J)  .EC.  2)  GO  TO  64 
61  SMIT1  =  1.  -  PRM  +  PRM»«2 

SMI  12  =  l.  ♦  2. *PRM  -  2.*( PRM**2) 

IF  IMFIU.J)  .EC.  3)  GO  TO  69 

63  E4 (I , J)  =  SMlTl»(Elt  1 » J  )  *»2 I  -  SMI T2*E1 It . J > *E2 < l , J)  ♦ 

X  SMIT1«IE2( I,J )**2) 

GO  TO  60 

64  SMI T 1  =  1.  -  PRF  +  PRF**2 

SMIT2  =  1.  ♦  2. *PRF  -  2.*(PRF**2) 

IF  (MFIU.J)  .EC.  3)  GO  TO  71 
GO  TO  63 

65  L  =  LNU.J) 

C  FOR  INTERFACE  POINTS 

C  MATRIX 

C  THE  VALUES  OF  SIGMA  1  ARE  STORED  IN  Cl  MATRIX 

C  THE  VALUES  OF  SIGMA  2  ARE  STORED  IN  C2  MATRIX 

C  THE  VALUES  OF  THETA  ARE  STORED  IN  C3  MATRIX 

C  THE  VALUES  OF  THE  VON  MISES  SUM  ARE  STORED  IN  C4  MATRIX 

C  FIBER 

C  THE  VALUES  OF  SIGMA  l  ARE  STOREO  IN  CI1  MATRIX 

C  THE  VALUES  OF  SIGMA  2  ARE  STOREO  IN  C12  MATRIX 

C  THE  VALUES  OF  THETA  ARE  STOREO  IN  C13  MATRIX 

C  THE  VALUES  OF  VON  MISES  SUM  ARE  STORED  IN  C14  MATRIX 

VTZMS  =  .5*1 SIGXMI L )  +  S1GYMILI) 

VTZMM  *  .5*1  SIGXMI  L  )  -  SIGYMIU) 

RADIUS  =  VT  ZMM*»2  +  TXYMIL)**2 
RADIUS  =  SORTIRAOIUSI 
Cl (L )  =  VTZMS  +  RADIUS 
C2U)  =  VTZMS  -  RAO  I  US 
C3IL)  =  -TXYMIL ) /VTZMM 
C3I L )  =  .5*ATAN(C3(L I ) 

C3IL)  =  57.29578*C3(L) 

VTZFS  =  .5-ISIGXFIL)  +  SIGYFIL)) 

VTZFM  =  .5*1 S IGXFI L )  -  SIGYFIL)) 

RADIUS  =  VTZFM**2  +  TXYF(L)**2 
RAOIUS  =  SORT  I  RADIUS ) 

Cll(L)  =  VTZFS  +  RADIUS 
C12IL)  *  VTZFS  -  RAOIUS 


C13  (  L)  =  -TXYFIU/VTZFM 
C13CO  =  .5*ATAN(C13(L)  ) 

C13 1 L I  =  57.29578*C13IL) 

IF  (KPSPS  .El).  2)  GD  TO  67 
C4(L>  =  Cl ( L ) »»2  -  Cl(t) »C2 ( L )  ♦  C2IL)**2 
C14 { l )  =  Cl  1  (  L  )  **2  -  CHILI  »C12  (  L  )  +  Cl  2(L)*«2 
GO  TO  60 
67  GO  TO  61 

69  C4IL)  =  SMIT1»(C1IL)»*2)  -  SMIT2»Ct(L)*C2(L)  +  SHI  Tl* IC2IL ) «*2 I 
GO  TO  64 

71  C14IL)  =  SMITl*ICimi**2>  -  SMIT2*C11(LI*C12(U  ♦ 

X  SMIT1«IC12ILI**2) 

60  CONTINUE 

E1UHK1, 31=0.0 
E2( IMP1, 31=0.0 
E3( IMM1, 31=0.0 
E4( IMM1»3)=0.0 
£5  I  I MM1 1 3  I =0.0 
E6(  IMM1, 31=0.0 
E7(IMM1,3I=0.0 
E811MM1, 31=0.0 
El<3. INM1 J=0.0 
£2(3, 1NM1 )=C.O 
E3(3,INM1)=0.0 
E4( 3  * INM1 1 =0 .0 
E  5 ( 3 • (NM1 1-0.0 
E6(3, INM1 1=0.0 
E7I3. INM1 1=0.0 
E8  ( 3 , INM1 1  =0.0 

80  GO  TO  (81,82,83>tKPROB 

81  SX=SIGX8 
$Y=SIGYB 
TT=0.0 

GO  TO  500 

82  SX*C.O 
SY=0.0 
TT  =  T 

GO  in  500 

83  SX=S I GXB 
SY=S IGYB 
TT  =  I 

GO  TO  500 
500  CONTINUE 

SIGXF(NL)  =  0.0 
SIGYF(NL)  =  0.0 
SIGZFINL)  =  0.0 
TXYFINU  =  0.0 
SIGXF(l)  =  O.C 
SIGYFI1I  =  0.0 
SIGZFI1I  =  0.0 
TXYFll)  =  0.0 
WRITE  (5,405)  SX,SY,TT 

WRITE  (5,400)  UI  I,J,U<  I.J),V(  l, J >, E5( I ,J) ,E6( l ,J),E7( I  ,J)  , 

1E8( I , J) I , J=3,N I , 1=3, Ml 

400  FORMAT  (1H  ,35X,5GH  STRESS  COMPONENTS  -  INTERIOR  AND  BOUNDARY  POI 
1NTS, /////» 

26X,1HI,3X,1HJ, 15X,1HU,19X,1HV,15X,7HSIGMA  X,8X,7HSIGMA  Y,8X, 
37HSIGMA  Z,8X,BH  TAU  XY  ,////,(3X,2l4,4X,2E20.8,4F15.3)> 

WRITE  (5,405)  SX.SY.TT 

WRITE  (5,401)  I (LI(L),LJ(L),SIGXM(L), SIGYMI L ),SIGZM(L), TXYK(L) • 
1SIGXF(L),SIGYF(L).SIGZFIL),TXYF(L ) ),L=1,NL) 

401  FORMAT  <1H  ,35X,38H  STRESS  COMPONENTS  -  INTERFACE  POINTS,/////, 


138X.9HIN  MATRIX, 43X.8HIN  FIBER,//, 

26X,1HI,3X,1MJ,9X,7MSIGMA  X, 6X, 7HSIGMA  Y,6X,7HSIGMA  Z,5X,BH  TAU  XY 
3,6X,7HSIGMA  X , 6X , 7HS 1 GMA  Y,6X,7HSIGMA  Z,5X,8H  TAU  XY  ,////, 
4(3X,2I4,4X,6F13.3) ) 

WRITE  15,405)  SX.SY.TT 

WRITE  (5,402)  Id  I,  J,E1(  I  ,J),E2(  I ,  J  )  ,  E  3(1 ,  J  ) ,  E4  (  I  ,  J  )  )  ,  J=3,  N )  ,  I  =  3  ,  M) 

402  FORMAT  (1H  , 36X ,*9HPR I NC l PAL  STRESSES  -  INTERIOR  AND  BOUNDARY  POIN 
ITS,/////, 

26X,lHI,3X,lHJ,18X,7HSIGMA  1 , 13X , 7HS I GMA  2, 12X.9HTHETA  DEG.12X, 
39HV0N  MI$E$,////,(3X,2I4,6X,4F2C.3I ) 

WRITE  (5,405)  SX.SY.TT 

WRITE  (5,403)1  I L I ( L > , L J ( L ) , C 1 ( L ) , C2 1 L ) , C3 ( L ) ,C4 1 L ) , Cl 1 ( L ) ,C12 ( LI , 
IC13(LI,C14(L)),L=1,NL) 

403  FORMAT  (1H  , 36X , 37HPR INC  I  PAL  STRESSES  -  INTERFACE  POINTS,/////, 
138X.9HIN  MATRIX, 43X, 8HIN  FIBER,//, 

26X,iHI,3X, 1HJ,9X,7MS1GMA  1,6X,  7HSIGMA  2, 7X , 5HTHE TA , 6X, 9HV0N  MISES 
3 , 5X , 7H5 I GMA  1,6X,7HSIGMA  2, 7X, 5HTHE TA , 6X , 9HV0N  MISES,////, 
4(3X,2I4,4X,8F13.3) ) 

WRITE  (5,404)  EX, EY, ALPHAX, ALPMAY 

404  FORMAT  (1H  ,//,36H  EFFECTIVE  COMPOSITE  ELASTIC  MODULI, //,6H  EX  = 
X,IE12.5,//,6H  EY  =, 1E12.5,///, 

X57H  EFFECTIVE  COMPOSITE  THERMAL  EXP.  COEF.  (IN/IN/OEG.  F)  ,//, 

XI IH  ALPHA  X  = , 1E12. 5, //, llH  ALPHA  Y  =,1E12.5) 

405  FORMAT  ( 1H1 , 44X, 35H  *  *  *  *  STRESS  CONDITION  •  *  *  «  ,//, 

X50X.41H  AVERAGE  COMPOSITE  SIGMA  X  IPSI )  =,1F11.2,/, 

X50X.41H  AVERAGE  COMPOSITE  SIGMA  Y  (PSI)  *,1F11.2,/, 

X50X.41H  TEMP.  IAMBIENT  -  CURING)  (OEG.  F)  =, IF H. 2, ////) 

RETURN 

END 

FORTRAN  MAP 

CSIGMAB 

SUBROUTINE  SIGMAB  (HX,HY,U»V ,6M,CM,FM, M,N, A , B , SXBS, SYBS 1 
DIMENSION  HX(20),HY(20),U(20,20),VI20,20) .SIGXI201 .SIGYI20) 

MMl=M-l 

MH2=M-2 

NML=N-1 

NM2=N-2 

A3=HX I MM1 I 

A I L  =  A3+HX ( MM2 ) 

A2=HY(3) 

A10  =  A2+HY I  4 ) 

CALL  PART  I3,A3tAll,U(M,3),U(MMl,3) , U ( MM2 , 3 ) , PU X ) 

CALL  PART  (2,A2,A10,V(M,3),V(M, 4 ) , V ( M, 5  I , PV Y ) 

S IGX (  3 )  =  I BM» I PUX+CM«PVY  J-FM ) • A2/2.0 

DO  50  J=4, NM1 

A2=HY(J) 

A4=HY( J-l) 

CALL  PART  (3,A3,A11,U(M,J),U(MML,J),U(MM2,J),PUX) 

CALL  PART  (l,A2,A4fV(M,J+l)tV(M,J),V(M,J-l),PVY) 

50  S IGX (  J)=(BM«(PUX*CM*PVY)-FM)*({A4/2.0)*(A2/2.0) J 

A4=HY I NM1 ) 

A12=A4+HY(NM2) 

CALL  PART  (3,A3,AU,U(M,N),U(MM1,N),U(MM2,N),PUX) 

CALL  PART  I3,A4,A12,V(M,N),V(M,NM1) , VI M.NM2 ) , PVY) 

SIGXl  N)=tfiM*(PUX+CM»PVY)-FM)«A4/2.Q 
SIGXBS=C .0 
DO  4  J  =  3, N 

4  SIGXBS=S1GXBS+SIGX(  J) 

SXBS=SIGXBS/B 

A4=HYINM1)  ' 

A12=A4+HY(NM2) 

A1=HX 13 ) 
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A9=Al  +  HXm 

CALL  PART  12,A1,A9,U(3,N).U(4,N>,U(5,N) ,PUXJ 
CALL  PART  <3,A*,A12,V(3,N)»V(3,NMn,VI3,NM2),PVY) 

SIGY13  I = ( ( CM*PUX*PVY )-FM ) *A1V2»0 
00  20  I 
A1=HX 1 1 > 

A3-HX ( I -1 ) 

CALL  PART  U,A1,A3,U< I*1,N)  ,UM,N»,UI1-1,N>  .PUX> 

CALL  PART  l3«A4fAl2iV(I»N).V<IfNNl)»V<!tNM2)tPVY> 

20  SIGYd  )=«BM*(CM»PUX+PVY)-FM)*(  t Al/2.0)*U3/2.0> ) 

A3*HX ( MM 1 ) 

AII=A3+HXI MM2 ) 

CALL  PART  (3, A3 , All , U( M, N> ,U< MM1 , N ) ,U( MM2 ,N> , PUX ) 

CALL  PART  <3,A4,A12.VIMtN»,V{MtNMl).VlK,NM2J»PVY) 

SIGYIM  )=l BM»(CM»PUX+PVY)-FM)*l A3/2.0) 

SlGYBS=C.O 
0056  I  =  3,M 
56  SIGYBS=S1GYBS+SIGYCI  I 
SYBS-SIGYBS/A 
RETURN 
ENO 

FORTRAN  MAP 

CPART 

SUBROUTINE  PART  I KP , A A, AB, F 1 , F2 ,F3,  P ) 

GO  TO  ( 1  *  2*  3»  3 ) <  KP 

1  P=U.O/lAA»AB«{  AAtAB)  )>*(  AB*»2»Fl  +  l  AA»»2-A8«*2)*F2-AA**2«F3» 
RETURN 

2  P=(l.O/(AA»AB*< AB-AAM > *  I ( AA**2-AB**2 > •F1+A8»*2*F2-AA**2»F3 ) 
RETURN 

3  P=U.O/(  AA*AB»(  AB-AA) ))»( (  AB»»2-AA*»2  »*F1-AB»*2»F  2+ AA**2«F3  » 
RETURN 

END 
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COMPUTER  OUTPUT  SAMPLE  PROBLEM 


TRANSVERSE 


STRESS 


ANALYSIS 


SAMPLE  PROBLEM  CIRCULAR  INCLUSION 


INPUT  DATA 


GRID  NODE  ARRAY  SUE 
QUADRANT  DIMENSIONS  A  =  1.400 

RELAXATION  FACTOR  (OMEGA  BAR) 

AVERAGE  SIGMA  X  LOADING  AT  INFINITY  (PSD 
AVERAGE  SIGMA  Y  LOADING  AT  INFINITY  (PSD 
PERCENT  FIBER  BY  VOLUME 
YOUNGS  MODULUS  E  IN  MATRIX  I  PS  I > 

YOUNGS  MOOULUS  E  IN  FIBER  (PSI) 

POISSONS  RATIO  IN  MATRIX 
POISSONS  RATIO  IN  FIBER 
MATRIX  SHEAR  MODULUS  PSI 

INCLUSION  SHEAR  MODULUS  PSI 
THERMAL  EXP.  COEF.  IN  MATRIX  ( IN/IN/OEG  F)  *  0. 
THERMAL  EXP.  COEF.  IN  FIBER  I  IN/IN/DEG  F>  *  0. 
T=AMBIENT  TEMP  -  CURING  TEMP  (DEGREES  F)  *  0. 

MAX  DELTA  STRESS  AT  TEST  PTS/REl AX { PERCENT ) »  0. 


*13  BY  13 
B  *  1.400 

*  1.700 

=  1000.00 
-  0. 

=  40.00 

-  0.1000+007 

*  0.2151+008 

-  0.3000 

=  0.3000 

*  0.3846+006 

*  0.8271+007 


SOLUTION  IS  FOR  PLANE  STRESS 


GRID  SPACING 

I  HXIII 

3  0.30600000 

4  0.16500000 

5  0.16800000 

6  0.13000000 

7  0.11300000 

B  0.07000000 

9  0.04800000 

10  0.05000000 

11  0.06000000 

12  0.08000000 

13  0.10000000 

14  O.liOOOOOO 


J  HY ( J I 

3  0.30600000 

4  0.16500000 

5  0.16800000 

6  0*13000000 

7  0.11300000 

8  0.07000000 

9  0.04800000 

10  0.05000000 

11  0.06000000 

12  O.OBOOOOOO 

13  0.10000000 

14  0.11000000 


COS  AND  SINE  THETA  AT  INTERFACE  NODES 


I 

J 

COS 

SINE 

3 

10 

0. 

l. 00000 

4 

9 

0.30597 

0.95204 

5 

a 

0.47101 

0.88213 

6 

7 

0.63899 

0.76921 

7 

6 

0.76921 

0.63899 

8 

5 

0.88213 

0.47101 

9 

4 

0.95204 

0.30597 

10 

3 

l.OCOOO 

0. 
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0.15023522+000  0.68929321+000 

0.17527149+000  0.80759353+000 

0.18670383+000  0.61006211+000 

0.14894533+000  0.41406319+000 

0.13505866+000  0.31948921+000 

-0.31824072-001  0. 

0.17738570-001  0. 

-0.11229241+001  0.36641229+000 

-0.11241578+001  0.62341759+000 

-0.81914391+000  0.44623128+000 

-0.60613425+000  0.42006999+000 

-0.35544251+000  0.25567194+000 

-0.26265216+000  0.30985311+000 

-0.19275441+000  0.86405604+000 

-0.24760653-001  0.87945334+000 

0.19621136+000  0.65252087+000 

0.42673677+000  0.39321782+000 

0.58814317+000  0.24060043+000 

-0.32237354-001  0. 

0. 16608637-001  0. 

-0.13225183+001  0.37209132+000 

-0.12371873+001  0.54858788+000 

-0.91272026+000  0.44698657+000 

-0.66714862+000  0.43957650+000 

-0.44747946+000  0.28759032+000 

-0.35813693+000  0.34969205+000 

-0.30266117+000  0.76981640+000 

-0.92476015-001  0.79275489+000 

0.16484115+000  0.55115788+000 

0.39921579+000  0.32840425+000 

0.63445087+000  0.16369173+000 

-0.30639466-001  0. 

0.15820472-001  0. 


12  4 

12  5 

12  6 
12  7 

12  8 
12  9 

12  10 
12  11 
12  12 
12  13 

12  14 

12  15 

13  3 

13  4 

13  5 

13  6 

13  7 

13  8 

13  9 

13  10 

13  11 

13  12 

13  13 

13  14 

13  15 

14  3 

14  4 

14  5 

14  6 

14  7 

14  8 

14  9 

14  10 

14  11 

14  12 

14  13 

14  14 

14  15 

15  3 

15  4 

15  5 

15  6 

15  7 

15  8 

15  9 

15  10 

15  11 

15  12 

15  13 

15  14 

15  15 


0.38573819+000  -0.12357420+000 

0.48056949+000  -0.16749890+000 

0.57751444+000  -0.18384863+000 

0.64125825+000  -0.17672198+000 

0.66584131+000  -0.15870806+000 

0.70837186+000  -0.14325642+000 

0.72165101+000  -0.13108671+000 

0.73366664+000  -0.11722862+000 

0.74573160+000  -0.99247194-001 

0.75801467+000  -0. 73433B03-001 

0.76762747+000  -0.39107329-001 

0.77126224+000  0. 

0.50820606+000  0. 

0.55715736+000  -0.13507940+000 

0.62418073+000  -0.17850902+000 

0.69353987+000  -0.19278921+000 

0.73936127+000  -0.18412357+000 

0.77161942+000  -0.16491205+000 

0.78798904+000  -0.14871797+000 

0.79765867+000  -0.13602631+000 

0.80642294+000  -0. 12160918+000 

0.81523781+000  -0.10293299+000 

0.82422846+000  -0.76150802-001 

0.83127621+000  -0.40552513-001 

0.83394113+000  0. 

0.74371593+000  0. 

0.76883736+000  -0.14194359+000 

0.80323323+000  -0.18575783+000 

0.83921528+000  -0.19929689+000 

0.86309839+000  -0.18980311+000 

0.87999440+000  -0.16979765+000 

0.68059434+000  -0.15306269+000 

0.69368289+000  -0.13997579+000 

0. 8983 OC 84+000  -0.12512552+000 

0.90295127+000  -0.10590142+000 

0.90770087+000  -0.78344661-001 

0.91142870+000  -0.41721132-001 

0.91283828+000  0. 

O.lOOOOCOO+OOl  0. 

0.10000000+001  -0.14453911+000 

O.lOOOOCOO+OOl  -0.18849878+000 

0.10000000+001  -0.20175761+000 

0.10000000+001  -0.19195068+000 

O.lOOOOCOO+OOl  -0.17164502+000 

O.lOOOOOOC+OOl  -0.15470554+000 

0. 10000000+001  -0.14146918+000 

O.lOOOOCOO+OOl  -0.12645514+000 

0.10000000+001  -0.10702385+000 

0.10000000+001  -0.79174214-001 

0.10000000+001  -0.42163016-001 

O.lOOOOCOO+OOl  0. 


-0.10300211+001  0.23993632+000 

-0.95012126+000  0.36506220+000 

-0.69460000+000  0.31464856+000 

-0.52788910+000  0.321B4464+000 

-0.34710302+000  0.21718815+000 

-0.32279963+000  0.26191751+000 

-0.25329260+000  0.60101914+000 

-0.10087261+000  0.58514384+000 

0.11285045+000  0.39426671+000 

0.33030849+000  0.20843232+000 

0.49437433+000  0.93374371-001 

-0.28585711-001  0. 

0.12082613-001  0. 

-0.64253253+000  0.88161510-001 

-0.58045814+000  0.16856171+000 

-0.42012211+000  0.15028438+000 

-0.30340142+000  0.17561812+000 

-0.20574723+000  0.11135586+000 

-0.17297964+000  0.16910289+000 

-0. 15052915+000  0.36828564+000 

-0.48378219-001  0.37247903+000 

0.82307148-001  0.23315322+000 

0.20063778+000  0.12040490+000 

0.31539956+000  0.45993579-001 

-0.22099911-001  0. 

0.73794477-002  0. 

-0.43791732+000  0.23282046-001 

-0.38248476+000  0.63037201-001 

-0.26718938+000  0.63145171-001 

-0.19310702+000  0.82750532-001 

-0.10562094+000  0.62215078-001 

-0.94306610-001  0.95991293-001 

-0.48480782-001  0.21248485+000 

-0.54555887-002  0.19125866+000 

0.83553305-001  0.11391309+000 

0.16155771+000  0.50975202-001 

0.22376864+000  0.14716334-001 

-0.12859822-001  0. 

0.  0. 

0.  -0.90713407-002 

0.  -0.11685569-001 

0.  -0.10575163-001 

0.  -0.90835593-002 

0.  -0.64877770-002 

0.  -0.52828388-002 

0.  -0.38950645-002 

0.  -0.29234606-002 

0.  -0.16974082-002 

0.  -0.41551751-003 

0.  0.33242084-003 

0.  0. 


I  TEST  POINTS  HAVE  NOT  YET  CONVERGED  TO  THE  SPECIFIED  MINIMUM  CHANGE  IN  STRESS  PER  RELAX  OF 


PERCENT 


•  *  *  *  STRESS  CONDITION  •  *  *  • 


6  9  0.22251604-003  -0.13728426-003 

6  10  0.24699357-003  -0.14668811-003 

6  11  0.26859507-003  -0.15574013-003 

6  12  0.28959320-003  -0.16603598-003 

6  13  0.31011112-003  -0.17929059-003 

6  14  0.32556226-003  -0.19559347-003 

6  15  0.33140472-003  -0.21344497-003 

7  3  0.12499117-004  0. 

7  4  0.30266577-004  -0.52059125-004 

7  5  0.54593507-004  -0.78817645-004 

7  6  0.78559556-004  -0.92539353-004 

7  7  0.18982845-003  -0.13459492-003 

7  8  0.26324809-003  -0.15785110-003 

7  9  0.29892304-003  -0.16074345-003 

7  10  0.31967729-003  -0.17516495-003 

7  11  0.33824309-003  -0.18112620-003 

7  12  0.35662445-C03  -0.18754012-003 

7  13  0.37498659-003  -0.19524224-003 

7  14  0.38907762-003  -0.20410865-003 

7  15  0.39440579-003  -0.21344497-003 

8  3  0.16557933-004  0. 

8  4  0.35758220-004  -0.68193480-004 

8  5  0.62046954-004  -0.08848538-004 

0  6  0.19218619-003  -0.14146524-003 

8  7  0.27852449-003  -0.17023893-003 

0  8  0.33780809-003  -0.18631661-003 

8  9  0.36734249-003  -0.19340557-003 

8  10  0.38464645-003  -0.19729278-003 

8  11  0.40022779-003  -0.20064059-003 

8  12  0.41570291-003  -0.20309480-003 

8  13  0. 43149438-003  -0.20726639-003 

8  14  0.44368311-003  -0.21049403-003 

8  15  0.44829197-003  -0.21344497-003 

9  3  0.37640618-004  0. 

9  4  0.41323122-004  -0.59504662-004 

9  5  0.14975363-003  -0.11681448-003 

9  6  0.26033575-003  -0.16520925-003 

9  7  0.33362165-003  -0. LB892138-003 

9  8  0.38461080-003  -0.20150311-003 

9  9  0.41026124-003  -0.20658102-003 

9  10  0.42535019-003  -0.20910961-003 

9  11  0.43898081-003  -0.21104599-003 

9  12  0.45263792-003  -0.21259393-003 

9  13  0.46649621-003  -0.21364246-003 

9  14  0.47729769-003  -0.21387200-003 

9  15  0.48138199-003  -0.21344497-003 

10  3  0.42969421-004  0. 

10  4  0.11299134-003  -0.85160162-004 

10  5  0.20886429-003  -0.13699912-003 

10  6  0.30669688-003  -0.17940021-003 

10  7  0.37148745-003  -0.20C14826-003 

10  tt  0.41690762-003  -0.21C67808-003 

10  9  0.43987356-003  -0.21455673-003 

10  10  0.45341592-003  -0.21626915-003 

10  11  0.46567224-003  -0.21735285-003 

10  12  0.47797706-003  -0.21786605-003 

10  13  0.49049405-003  -0.21750440-003 

10  14  0.50027448-003  -0.21591659-003 

10  15  0.50397270-003  -0.21344497-003 

11  3  0.12621430-003  0. 

11  4  0.18674436-003  -0.10271309-003 

11  5  0. 26962120-003  -0.15349548-003 


561.400  -37.875  0.  115.816 

533.506  -28.577  0.  94.601 

515.335  -22.148  0.  73.701 

501.954  -18.476  0.  52.729 

492.531  -16.744  0.  31.853 

487.450  -16.440  0.  14.518 

485.558  -16.230  0.  -0.000 

-349.870  -3874.769  0.  O.OOG 

63.302  -3528.528  0.  -93.782 

831.206  -2380.475  0.  226.952 

0.  0.  0.  0. 

787.678  -24.235  0.  155.972 

656.883  22.257  0.  115.172 

609.271  40.123  0.  90.199 

581.962  47.937  0.  75.326 

558.798  54.017  0.  60.997 

537.525  58.911  0.  45.799 

518.377  62.620  0.  29.290 

505.123  64.677  0.  13.918 

500.668  67.309  0.  -0.000 

2689.863  -5350.254  0.  0.000 

469.322  -3287.130  0.  1220.199 

0.  0.  0.  0. 

997.116  37.726  0.  129.721 

805.005  62.459  0.  116.941 

692.485  90.788  0.  88.803 

641.133  103.104  0.  71.453 

611.812  109.431  0.  60.546 

586.066  114.644  0.  49.990 

561.150  119.290  0.  38.544 

537.050  123.357  0.  25.512 

519.188  126.075  0.  12.456 

513.310  130.021  0.  -0.000 

0.  0.  0.  0. 

0.  0.  0.  0. 

1258.044  59.448  0.  94.506 

989.499  68.354  0.  112.152 

818.501  101.164  0.  98.551 

708.693  125.224  0.  75.657 

656.210  136.104  0.  61.694 

625.977  141.947  0.  52.599 

599.139  146.891  0.  43.749 

572.771  151.472  0.  34.077 

546.696  155. 7D7  0.  22.871 

526.920  158.722  0.  11.293 

520.461  163.256  0.  -0.000 

C.  0.  0.  0. 

1531.622  157.878  0.  5.005 

1250.993  91.738  0.  79.055 

991.999  97.522  0.  100.122 

826.729  123.950  0.  87.439 

718.003  145.542  0.  67.811 

665.019  155.803  0.  55.428 

634.290  161.469  0.  47.400 

606.845  166.343  0.  39.564 

579.681  170.954  0.  30.966 

552.545  175.332  0.  20.923 

531.741  178.539  0.  1C. 389 

524.973  183.413  0.  -0.000 

1703.805  157.357  0.  0.000 

1509.298  135.246  0.  35.813 

1242.638  103.826  0.  81.508 


11 

6 

0.35467182-003 

-0.19204364-003 

ll 

7 

0.41099972-003 

-0.21036880-003 

11 

8 

0.45070227-003 

-0.21910068-003 

11 

9 

0.47085798-003 

-0.22190016-003 

11 

10 

0.48276808-003 

-0.22287042-003 

11 

11 

0.49356467-003 

-0.22317357-003 

11 

12 

0.50442267-003 

-0.22273474-003 

11 

13 

0.51549079-003 

-0.22107152-003 

11 

14 

0.52415715-003 

-0.21780490-003 

11 

15 

0.52743412-003 

-0.21344497-003 

12 

3 

0.22501258-003 

0. 

12 

4 

0.27441161-003 

-0.11736781-003 

12 

5 

0.3420480G-003 

-0.16832826-003 

12 

6 

0.41207533-003 

-0.20434575-003 

12 

7 

0.45854069-003 

-0.22060998-003 

12 

8 

0.49144530-003 

-0.22764006-003 

12 

9 

0.50820813-003 

-0.22937782-003 

12 

10 

0.51813271-003 

-0.22960675-003 

12 

11 

0.52714330-003 

-0.22912293-003 

12 

12 

0.53621990-003 

-0.22771728-003 

12 

13 

0.54549000-003 

-0.22472513-003 

12 

14 

0.55276250-003 

-0.21973971-003 

12 

15 

0.55551241-003 

-0.21344497-003 

13 

3 

0.35507355-003 

0. 

13 

4 

0.39019459-003 

-0.12957768-003 

13 

5 

0.43828178-003 

-0.18161777-003 

13 

6 

0.48665044-003 

-0.21627185-003 

13 

7 

0.52220403-003 

-0.23090845-003 

13 

8 

0.54607113-003 

-0.23637121-003 

13 

9 

0.55826743-003 

-0.23707247-003 

13 

10 

0.56550140-003 

-0.23656081-003 

13 

11 

0.57207868-003 

-0.23528000-003 

13 

12 

0.57871431-003 

-0.23288466-003 

13 

13 

0.58550359-003 

-0.22852062-003 

13 

14 

0.59083935-003 

-0.22175159-003 

13 

15 

0.59285693-003 

-0.21344497-003 

14 

3 

0.51555961-003 

0. 

14 

4 

0.53366585-003 

-0.13754635-003 

14 

5 

0.55845663-003 

-0.19083472-003 

14 

6 

0.58468937-003 

-0.22511226-003 

14 

7 

C. 60224030-003 

-0.23881120-003 

14 

8 

0.6147683C-003 

-0.24319010-003 

14 

9 

0.62118449-003 

-0.24312474-003 

14 

10 

0.62499508-003 

-0.24205062-003 

14 

11 

0.62846340-003 

-0.24015494-003 

14 

12 

0.63196639-003 

-0.23698655-003 

14 

13 

0.63555515-003 

-0.23154011-003 

14 

14 

0.63837919-003 

-0.22335438-003 

L4 

15 

0.63944703-003 

-0.21344497-003 

15 

3 

0.69064539-003 

0. 

L5 

4 

0.69064539-003 

-0.14055951-003 

15 

5 

0.69064539-003 

-0.19431988-003 

15 

6 

0.69064539-003 

-0.22845504-003 

15 

7 

0.69064539-003 

-0.24179942-003 

15 

8 

0.69064539-003 

-0.24576849-003 

15 

9 

0.69064539-003 

-0.24541325-003 

15 

10 

0.69064 539-DO 3 

-0.24412646-003 

15 

11 

0.69064539-003 

-0.24199827-003 

15 

12 

0. 69 C 64539-003 

-0.23853758-003 

15 

13 

0.69064539-003 

-0.23268185-003 

15 

14 

0.69064539-003 

-0.22396043-003 

15 

15 

0.69064539-003 

-0.21344497-003 

993.811 

118.577 

0. 

09.998 

834.214 

143.374 

0. 

77.067 

726.431 

163.676 

0. 

59.854 

673.066 

173.660 

0. 

49.062 

641.906 

179.289 

0. 

42.043 

613.923 

184.194 

0. 

35.180 

586.058 

188.907 

0. 

27.632 

557.999 

193.468 

0. 

18.764 

536.309 

196. 87B 

0. 

9.355 

529.278 

202.070 

0. 

-0.000 

1657.214 

65.076 

0. 

0.000 

1488.666 

111.578 

0. 

45.343 

1238.136 

109.395 

0. 

77.263 

997.480 

135.187 

0. 

77.803 

842.183 

161.194 

0. 

65.110 

735.087 

181.400 

0. 

50.443 

681.332 

191.472 

0. 

41.396 

649.735 

197.227 

0. 

35.519 

621.209 

202.289 

0. 

29.775 

592.642 

207.209 

0. 

23.450 

563.677 

212.039 

0. 

15.986 

541.126 

215.702 

0. 

7.998 

533.644 

221.239 

0. 

-0.000 

1613.598 

-9.583 

0. 

0.000 

1467. B28 

87.098 

0. 

42.055 

1235.168 

109.224 

0. 

62.437 

1002.828 

147.390 

0. 

59.303 

850.942 

177.064 

0. 

48.607 

744.246 

198.596 

0. 

37.477 

690.044 

209.262 

0. 

30.747 

657.979 

215.379 

0. 

26.396 

628. 8B5 

220. 7B5 

0. 

22.153 

599.597 

226.071 

0. 

17.482 

569.715 

231.305 

0. 

11.956 

546.303 

235.307 

0. 

5.996 

538.778 

241.247 

0. 

-0.000 

1581.402 

-57.287 

0. 

0.000 

1451.533 

68.171 

0. 

24.445 

1233.542 

106.031 

0. 

34.540 

1007.935 

153.966 

0. 

32.097 

858.268 

187.747 

0. 

26.062 

751.693 

211.262 

0. 

20.049 

697.097 

222.784 

0. 

16.450 

664.649 

229.382 

0. 

14.130 

635.098 

235.213 

0. 

11.869 

605.238 

240.924 

0. 

9.380 

574.639 

246.595 

0. 

6.429 

550.562 

250.944 

0. 

3.229 

542.857 

257.253 

0. 

-0.000 

1561.496 

-77.644 

0. 

-0.000 

1441.004 

59.705 

0. 

-0.000 

1233.167 

104.895 

0. 

-0.000 

1011.842 

157. C45 

0. 

-0.000 

863.147 

192.419 

0. 

0.000 

756.240 

216.570 

0. 

0.000 

701.158 

228.315 

0. 

0.000 

668.314 

235.019 

0. 

0.000 

638.326 

240.932 

0. 

G.000 

607.943 

246.712 

0. 

0.000 

576.712 

252.440 

0. 

0.000 

552.063 

256.824 

0. 

0.000 

544.169 

263.236 

0. 

0.000 

*  *  *  *  STRESS  CONDITION  *  *  *  * 

AVERAGE  COMPOSITE  SIGMA  X  I  PS  I >  =  1000.00 

AVERAGE  COMPOSITE  SIGMA  Y  (PSIJ  -  0. 

TEMP.  {AMBIENT  -  CURING)  IDEG.  F )  -  0. 


STRESS  COMPONENTS  -  INTERFACE  POINTS 


IN  MATRIX 


IN  FIBER 


I  J 


SIGMA  X 


SIGMA  Y  SIGMA  Z  TAU  XY 


SIGMA  X  SIGMA  Y  SIGMA  l 


TAU  XY 


3  10  165.440 

4  9  331.734 

5  3  537.509 

6  7  778.433 

7  6  999.288 

8  5  1270.550 

9  4  1526.272 

3  1754.614 


-302.132  0. 

-206.118  0. 

-228.538  0. 

-131.965  0. 

-86.684  0. 

16.184  0. 

81.182  0. 

271.390  0. 


-0.000  0. 

315.980  4208.321 

199.134  2316.953 

227.651  1466.305 

182.824  567.066 

173.029  774.453 

12.419  779.401 

0.000  0. 


0.  0 

939.775  0 

278.776  0 

342.717  0 

-713.025  0, 

1723.917  0. 

3948.108  0, 

0.  0 


0. 

-342.019 

-750.993 

-343.770 

703.130 

1102.149 

2070.228 

0. 
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•  STRESS  CONDITION  *  *  • 


AVERAGE  COMPOSITE  SIGMA  X 
AVERAGE  COMPOSITE  SIGMA  Y 
TEMP.  (AMBIENT  -  CURING! 


IPS1) 
IPSI  I 
(DEG.  FI 


1000.00 

0. 

0. 


PRINCIPAL  STRESSES  -  INTERIOR  AND  BOUNDARY  POINTS 


1 

J 

SIGMA  1 

SIGMA  2 

THETA  DEG 

VON  MISES 

3 

3 

-122.223 

-357.256 

0. 

98905.568 

3 

4 

327.677 

-605.272 

0.000 

672060.232 

3 

5 

1028.775 

-661.177 

0.000 

2175735.973 

3 

6 

2C33.772 

-793.688 

0.000 

6380346.151 

3 

7 

2980.693 

-1049.875 

C.000 

13116125.440 

3 

e 

4159.456 

-1927.130 

0.000 

29030714.446 

3 

9 

0. 

0. 

0. 

0. 

3 

IC 

0. 

0. 

0. 

0. 

3 

LI 

236.835 

-306.754 

o.coo 

222638.529 

3 

12 

307.856 

-310.858 

0.000 

287106.989 

3 

13 

378.007 

-310.096 

0.000 

356267.011 

3 

14 

430.151 

-307.499 

0.000 

411856.420 

3 

15 

448.592 

-310.771 

0. 

437222.682 

4 

3 

-30.744 

-828.837 

-0.000 

662433.618 

4 

4 

431.824 

-1035.897 

-1.323 

1706880.601 

4 

5 

1145.996 

-1046.592 

-1.269 

3608049.820 

4 

6 

2103.501 

-1023.203 

-0.659 

7623967.353 

4 

7 

2899.352 

-840.799 

0.071 

11550957.365 

4 

8 

3098.353 

-182.359 

5.725 

10198057.591 

4 

9 

C. 

0. 

0. 

0. 

4 

10 

343.029 

-271.241 

-16. 005 

284284.330 

4 

11 

349.669 

-231.348 

-6.677 

256685.334 

4 

12 

383.279 

-232.552 

-4.324 

290115.086 

4 

13 

416.112 

-233.746 

-2.367 

325050.467 

4 

14 

441.168 

-234.579 

-1.006 

353145.572 

4 

15 

449.788 

-238.316 

0.000 

366295.476 

5 

3 

-81.153 

-1527.215 

-0.000 

2215034.306 

5 

4 

403.909 

-1674.992 

-0.952 

3645285.505 

5 

5 

1144.085 

-1620.447 

-0.823 

578870B.084 

5 

6 

2C07.711 

-1394.009 

0.578 

8772930.501 

5 

7 

2345.354 

-708.599 

4.200 

7664715.766 

5 

8 

0. 

0. 

0. 

0. 

5 

9 

494.479 

-206.419 

-14.474 

389187.951 

5 

10 

443.779 

-163.579 

-12.508 

296291.196 

5 

11 

442.777 

-140.189 

-8.831 

277776.855 

5 

12 

446.164 

-134.111 

-5.703 

276904.497 

5 

13 

454.646 

-132.137 

-3.115 

284239.154 

5 

14 

463.550 

-132.321 

-1.323 

293724.671 

S 

15 

466.543 

-134.576 

0.000 

298558.516 

6 

3 

-86.015 

-2591.206 

-0.000 

6498864.856 

6 

4 

328.728 

-2646.465 

-0.502 

7981804.196 

6 

5 

959.061 

-2512.362 

-0.425 

9641271.130 

6 

6 

1369.062 

-1335.571 

-1.723 

5486557.378 

6 

7 

0. 

0. 

0. 

0. 

6 

8 

642.087 

-107.211 

-12.318 

492607.857 

6 

9 

583.004 

-59.479 

-10.566 

378107.236 

6 

10 

549.001 

-44.072 

-9.302 

327539.627 

6 

ii 

525.258 

-32.071 

-7.666 

293769.704 

6 

12 

507.242 

-23.765 

-5.728 

269914.164 

6 

13 

494.516 

-18.720 

-3.565 

254158.119 

6 

14 

487.868 

-16.858 

-1.649 

246524.092 

6 

15 

485. 55B 

-16.230 

0.000 

243910.282 

7 

3 

-349.870 

-3874.769 

-0.000 

13780580.120 

7 

4 

65.749 

-3530.975 

1.495 

12704267.737 

7 

5 

847.165 

-2396.434 

-4.022 

8490755.323 

7 

6 

0. 

0. 

0. 

0. 

7 

7 

816.610 

-53.167 

-10.509 

713095.767 

7 

8 

677.138 

2.C02 

-9.974 

457164.328 

7 

9 

623.224 

26.170 

-8.793 

372783.340 

7 

10 

592.384 

37.516 

-7.877 

330102.315 

7 

11 

566. C64 

46.751 

-6.793 

296150.280 

7 

12 

541.869 

54.568 

-5.417 

267030.489 

7 

13 

520.252 

60.745 

-3.662 

242749.380 

7 

14 

505.562 

64.238 

-1.808 

227243.807 

7 

15 

500.668 

67.309 

0.000 

221499.108 

a 

3 

2689.863 

-5350.254 

-0.000 

50252037.471 

8 

4 

830.877 

-3648.685 

-16.505 

17034868.828 

8 

5 

0. 

0. 

0. 

0. 

B 

6 

1014.346 

20.496 

-7.566 

1008528.785 

8 

7 

622.987 

44.477 

-8.742 

642681.023 

8 

8 

705.318 

77.956 

-8.223 

440566.925 

8 

9 

650.460 

93.776 

-7.437 

370694.592 

8 

10 

619.006 

102.237 

-6.776 

330335.272 

8 

11 

591.308 

109.402 

-5.987 

296924.205 

8 

12 

564.487 

115.953 

-4.948 

266636.267 

8 

13 

538.617 

121.789 

-3.516 

239343.084 

8 

14 

519.583 

125.681 

-1.813 

220460.125 

8 

15 

513.310 

130.021 

0.000 

213651.441 

9 

3 

0. 

0. 

C. 

0. 

9 

4 

0. 

0. 

0. 

C. 

9 

5 

1265.450 

52.042 

-4. 481 

1538215.253 

9 

6 

1002. 957 

54.896 

-6.843 

953877.849 

9 

7 

831.794 

87.871 

-7.682 

626511.549 

9 

8 

710.394 

115.523 

-7.288 

446444.065 

9 

9 

663.427 

128.686 

-6.673 

371240.989 

9 

10 

631.627 

136.298 

-6.131 

331440. C87 

9 

11 

603.333 

142.697 

-5.475 

29B278 .734 

9 

12 

575.510 

148.733 

-4.595 

267735.800 

9 

13 

548.029 

154.374 

-3.336 

239566.019 

9 

14 

527.266 

158.376 

-1.755 

219586.325 

9 

15 

520.461 

163.256 

0.000 

212563.453 

10 

3 

0. 

0. 

0. 

0. 

1  u 

4 

1531.640 

157.660 

-0.209 

2129055.656 

10 

5 

1256.360 

86.372 

-3.883 

1477385.164 

10 

6 

1003.069 

06.452 

-6.309 

926904.691 

10 

7 

837.445 

113.234 

-6.987 

619308.578 

lu 

8 

725.926 

137.619 

-6.664 

446006.468 

10 

9 

670.962 

149.839 

-6.141 

372129.279 

10 

10 

638.995 

156.764 

-5.669 

332717.937 

10 

11 

610.370 

162.818 

-5.092 

299682.208 

10 

12 

582.014 

168.621 

-4.308 

269033.611 

10 

13 

553.702 

174.175 

-3.165 

240481.426 

10 

14 

532.046 

178.234 

-1.683 

220011.524 

10 

15 

524.973 

183.413 

0.000 

212949.640 

11 

3 

1703.805 

157.357 

-0.000 

2659606.566 

11 

4 

1510.231 

134.314 

-1.492 

2095992.981 

11 

5 

1248.443 

98.022 

-4.073 

1445842.364 

11  6 
11  7 

11  8 
11  9 

11  10 
11  11 
11  12 
U  13 
11  14 

11  15 

12  3 

12  4 

12  5 

12  6 
12  7 

12  8 
12  9 

12  10 
12  11 
12  12 
12  13 

12  14 

12  15 

13  3 

13  4 

13  5 

13  6 

13  7 

13  8 

13  9 

13  10 

13  11 

13  12 

13  13 

13  14 

13  15 

14  3 

14  4 

14  5 

14  6 

14  7 

14  6 

14  9 

14  1C 
14  11 

14  12 

14  13 

14  14 

14  15 

15  3 

15  4 

15  5 

15  6 

15  7 

15  8 

15  9 

15  10 

15  11 

15  12 

15  13 

15  14 

15  15 


1002.970 

842.707 

732.727 

677.840 

645.696 

616.784 

587.971 

558.962 

536.566 

529.278 
1657.214 
1490.157 
1243.400 
1004.444 

848.352 

739.645 

684.806 

652.506 

623.314 
594.064 
564.403 
541.322 
533.844 

1613.598 
1469.108 
1238.620 
1006.920 

854.430 
746. 80B 
692.002 
659.548 
630.084 
600.414 
570.137 
546.418 
536.778 
IS81.402 
1451.964 

1234.599 
1C09.140 

859.279 
752.436 
697.667 
66S.107 
635.450 
605.480 
574.765 
550.597 
542.857 

1561.496 

1441.004 

1233.167 

1011.842 

863.147 

756.240 

701.158 

668.314 
638.326 
607.943 
576.712 
552.063 
544.169 


109.419 
134.881 
157.381 
168. B86 
175.499 
181.333 
186.993 

192.505 
196.620 
202.070 

65.076 

110.087 

104.130 

126.223 

155.024 

176.841 

187.998 

194.456 

200.184 

205.788 

211.314 

215.505 
221.239 

-9.583 

85.818 

105.773 

143.298 

173.576 

196.034 

207.303 

213.810 

219.586 

225.254 

230.883 

235.192 

241.247 

-57.287 

67.740 

104.973 

152.761 

186.735 

210.519 

222.214 

228.923 

234.861 

240.683 

246.469 

250.909 

257.253 

-77.644 

59.705 

104.895 

157.045 

192.419 
216.570 

228.315 
235.019 
240.932 
246.712 
252.440 
256.824 
263.236 


-5.811  908176.855 

-6.289  614682.359 

-6.004  446339.820 

-5.558  373511.797 

-5.151  334403.885 

-4.649  301460.763 

-3.961  270729.726 

-2.939  241893.948 

-1.578  221C63.181 

0.000  214016.255 

-0.000  2642748.375 

-1.864  2068639.954 

-3.898  1427410.078 

-5.115  896555.433 

-5.413  612218.727 

-5.163  447547.888 

-4.796  375559.849 

-4.461  336693.414 

-4.045  303816.797 

-3.469  273009.174 

-2.598  243937.671 

-1.407  222814.230 

0.000  215828.917 

-0.000  2619252.329 

-1.743  2039565.881 

-3.164  1414354.192 

-3.947  890132.182 

-4.104  611871.339 

-3.911  449751.225 

-3.644  378387.470 

-3.401  339700.264 

-3.098  306866.753 

-2.674  275990.208 

-2.021  246728.057 

-1.104  225375.168 

0.000  218503.364 

-0.000  2594708.405 

-1.012  2014434.025 

-1.753  1405654.694 

-2.149  887541.226 

-2.223  612772.921 

-2.122  452075.904 

-1.984  381086.960 

-1.857  342514.359 

-1.699  309714.417 

-1.474  278805.281 

-1.122  249440.207 

-0.617  227962.472 

O.CCC  221221.304 

0.000  2565540.093 

0.000  1994021.504 

0.000  1402351.787 

0.000  889581.615 

-0.000  615962.483 

-0.000  455022.246 

-0.000  383665.271 

-0.000  344810.661 

-0.000  311715.638 

-0.C00  280474.948 

-O.COO  250737.516 

-0.000  228940.980 

-0.000  222167.956 


•  *  *  »  STRESS  CONDITION  •  *  *  « 

AVERAGE  COMPOSITE  SIGMA  X  (PS  I )  =  1000.00 

AVERAGE  COMPOSITE  SIGMA  Y  (PSD  =  0. 

TEMP.  (AMBIENT  -  CURING!  (DEG.  F>  *=  0. 


PRINCIPAL  STRESSES  -  INTERFACE  POINTS 


IN  MATRIX  IN  FIBER 

I  J  SIGMA  1  SIGMA  2  THETA  VON  MISES  SIGMA  1  SIGMA  2  THETA  VON  MISES 


0.  0. 

5.910  14969199.108 
18.194  6492047.258 

15.732  2119509.419 

23.845  2717477.675 

20.711  8550957.136 

20.606  32129712.611 
0.  0. 


EFFECTIVE  COMPOSITE  ELASTIC  MODULI 
EX  =  0 .20271+007 
EY  =  0.2U271+007 


EFFECTIVE  COMPOSITE  THERMAL  EXP.  COEF.  (IN/IN/DEG.  F) 
ALPHA  X  *  0. 

ALPHA  Y  =  0. 


3  10  165.440  -302.132  0.000  168638.702  0.  0. 

4  9  477.735  -352.119  -24.800  520437.115  4243.726  904.369 

5  8  586.182  -277.210  -13.735  582949.831  2563.776  31.953 

6  7  832.185  -185.717  -13.285  861573.587  1563.138  245.884 

7  6  1029.240  -116.636  -9.304  1192985.945  877.836  -1023.795 

8  5  1293. 9BI  -7.246  -7.712  1683814.637  1191.160  -2140.624 

9  4  1526.379  81.076  -0.492  2212654.467  1557.808  -4726.515 

10  3  1754.614  271.390  -0.000  2676139.654  0.  0. 
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